Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Cursors Available to Use with the Cursor Property

Sub ViewCursors()      Application.Cursor = xlNorthwestArrow      MsgBox "Do you like the xlNorthwestArrow? Hover over the worksheet to see it."      Application.Cursor = xlIBeam      MsgBox "How about the xlIBeam? Hover over the worksheet to see it."      Application.Cursor = xlWait      MsgBox "How about xlWait? Hover over the worksheet to see it."      Application.Cursor = xlDefault      MsgBox "Back to the default..."  End Sub