In diesem Beispiel wird der Mauszeiger in einen I-Mauszeiger geändert und nach einer Pause wieder in den Standardzeiger umgewandelt.
Sub ChangeCursor() Application.Cursor = xlIBeam For x = 1 To 1000 For y = 1 to 1000 Next y Next x Application.Cursor = xlDefault End Sub