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