Foro Excel

Buenas tardes podrian ayudarme para saber que error tiene esta macros a la hora de ejecutarla me sale "error en sintaxis" y no se que sea

de antemano gracias

este es el codigo el cual lo tengo en ThisWorkbook:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Esto inhabilita el 'Guardar como' y F12
    If SaveAsUI = True Then
    Cancel = True
    MsgBox vbCrLf & UCase(Application.UserName) & vbCrLf & "Imposible guardar " & ActiveWorkbook.Name & " con un" & vbCrLf & "nombre distinto. El documento no se guardó.", Buttons:=vbCritical + vbOKOnly, Title:="¡ACCIí“N PROHIBIDA!"
    Else
    Cancel = False
    End If
End Sub

solo comentarte que lo he probado en XP dentro de Excel 2003 y funciona correctamente (Al intertar Guardar advierte que no es posible).

saludos

Yo lo corro en XP Office 2003 y me sale ese error

A que se debera

que raro?????????? me funciona a la perfeccion

salu2

Si y el error me sale en

If SaveAsUI = True Then

O si tienen otro podrian facilitarmelo gracias