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

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

Thanks for that.

I'll try and find out what version it is but at the moment
I don't know any more. I gave a spreadsheet with the code
to a mac user on a non-rewriteable CD.
I was simply told that it "didn't work" but suspect now
that it is mostly likely to be because the file is read-
only having come off the CD.

-----Original Message-----
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
.