可以通过设置Application.Cursor属性改变鼠标指针形状。如在XP中下面的语句将鼠标指针的形状改变为沙漏状，这种形状的鼠标指针表示系统比较繁忙。
Application.Cursor = xlWait
改为I型指针：
Application.Cursor = xlIBeam改变鼠标指针形状后，Excel不会自动恢复，用下面的语句恢复默认指针形状：
Application.Cursor = xlDefault
……