Frank

Put it in the workbook_open event
Alt+F11
Double click this workbook
and paste in

Private Sub Workbook_Open()
Application.cursor = xlNorthwestArrow
End Sub

Mike
"Frank" wrote:

Hello, how do I make this take effect everytime I start Excel? Thanks in
advance.

Sub cursor()
End Sub

change it back to normal with xlDefault