Excel上で表示されるマウスポインタを変更します。
※Windows版ではウスポインタが変更されましたが、MAC版ではエラーにはならないものの、表示が変更されませんでした。

[Sample]

Sub puf_cursor_chang()

   'xlIBeam I 字型ポインタ
   Application.Cursor = xlIBeam
   'xlNorthwestArrow 矢印型ポインタ
   Application.Cursor = xlNorthwestArrow
   'xlWait 砂時計型ポインタ
   Application.Cursor = xlWait
   'xlDefault 標準のポインタ
   Application.Cursor = xlDefault

End Sub