ME PUEDEN AYUDAR CON MI FORMULA:

Hola a todos, quisiera saber si me pueden ayudar, tengo lo siguiente en una
ThisWorkbook:

Private Sub Workbook_Open()
Dim Clave As String
Clave = Trim(InputBox("Teclee la clave de acceso:"))
Select Case Clave
Case "ALBERTO": Sheets("INICIO").Activate
Range("A1").Select
Case Else: MsgBox "No ha tecleado una clave correcta":
ThisWorkbook.Close
End Select
End Sub


El problema es que en mi maquina si habre perfectamente pero al llevarlo a
otra maquina con excel 2003 igual me marca error en:

Private Sub Workbook_Open()

alguna sugerencia...

mil gracias de antemano