Works perfectly for me - XL04, OSX 10.3.4 - as long as I have two sheets
which have the code names 12 and 121.

What does "doesn't work" mean to you? Do you get compile errors?
Run-time errors? Wrong values? Nothing happens? XL crashes?

What version of MacXL are you running?





In article ,
"libby" wrote:

Hi
Any ideas as to why the following code doesn't work when
run on a mac?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
If Sheet12.Range("g4") < Date Or _
Sheet121.Range("g4") < Date Then
Select Case MsgBox("Dates have not been updated!" &
vbCr & "Do you want to update Dates?", vbQuestion +
vbYesNoCancel)
Case vbYes
Sheet12.Range("g4") = Date
Sheet121.Range("g4") = Date
Case vbNo
MsgBox ThisWorkbook.Name & " will be saved without
updating Dates.", vbInformation
Case vbCancel
Cancel = True
MsgBox "Save cancelled!", vbExclamation
End Select
End If
End Sub