Cursor Property Example

This example changes the mouse pointer to an I-beam, pauses, and then changes it to the default pointer.

Sub ChangeCursor()
    Application.Cursor = xlIBeam
    For x = 1 To 1000
        For y = 1 to 1000
        Next y
    Next x
    Application.Cursor = xlDefault
End Sub