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
|