24 | 05 | 2017

Change Cursor

 Code below will dislay a wait cursor for a couple of seconds. Change the counter time to set the time.

 

Sub ChangeCursor()
'***********************************
'*** Code From VisibleVisual.com ***
'***********************************
   
'This Example changes your cursor to the "Wait" Cursor for 5 seconds
Dim Counter As Long, Column As Integer

Application.Cursor = xlWait
For Counter = 1 To 5000
For Column = 1 To 3
   Cells(Counter, Column) = "R: " & Counter & " C: " & Column
   DoEvents()
Next
Next
Application.Cursor = xlDefault
 
End Sub


Login

Sign up now and upload your code to the website.

Help us to continue.....
Statistics
Articles View Hits
2258969
Latest Articles