Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. 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