Change Cursor

Tutorials

Written by Administrator

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

1 Sub ChangeCursor()

2 '***********************************

3 '*** Code From VisibleVisual.com ***

4 '***********************************

6 'This Example changes your cursor to the "Wait" Cursor for 5 seconds

7 Dim Counter As Long, Column As Integer

9 Application.Cursor = xlWait

10 For Counter = 1 To 5000

11 For Column = 1 To 3

12 Cells(Counter, Column) = "R: " & Counter & " C: " & Column

13 DoEvents()

14 Next

15 Next

16 Application.Cursor = xlDefault

18 End Sub

< Prev		Next >