Buenas tardes a todos espero que alguien me pueda ayudar con esta macro porque al correrla me sale error de sintaxis y me marca lo que esta en azul.

esta es la macro:

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

Espero sus comentarios

Saludos