Mac Excel Version of Macros

[jwelker12]

Hello I am having some issues with the following Macro only in the Mac Version of Excel for some reason. When i use the Macro in a windows version of Excel the macro works just fine. Does any one have any ideas that might help out with thi issue? Here is a copy of the file and the error that I'm getting.

Sub Auto_Open()
ExpirationCode
End Sub
Sub ExpirationCode()
Dim ExpirationDate As Date
ExpirationDate = DateSerial(2014, 11, 18)
If Now() >= ExpirationDate Then
MsgBox "Trial Period ended on " + CStr(ExpirationDate) + "."
ThisWorkbook.Close savechanges:=False
End If
End Sub

If you have any question about the situation please let me know.

Justin-

 

[NARAYANK991]

Hi Justin ,

I don't have a Mac , so I cannot say , but on a hunch , does the keyword savechanges exist in the Mac ? Can you try :

ThisWorkbook.Close False

Narayan

 

[jwelker12]

Hi Narayan,

I did try to change that and it still got the same error.

Thank you.
Justin

 

[NARAYANK991]

Hi Justin ,

Does the method Thisworkbook.Close exist ?

When you type in thisworkbook and press the period symbol "." , does the Intellisense show the keyword Close in the available methods dropdown ?

What happens if you type in ThisWorkbook.Close in the Immediate window ? Do you get the same error ?

Narayan

 

[vletm]

Hi,
Test next!

Sub Autpen()
ExpirationCode
EndSub

Sub ExpirationCode()
Dim ExpirationDate AsDate
ExpirationDate = DateSerial(2014, 11, 18)
If Now() >= ExpirationDate Then
MsgBox "Trial Period ended on " + CStr(ExpirationDate) + "."
' no work with Mac => ' ThisWorkbook.Close savechanges:=False
Workbooks(ThisWorkbook.Name).Close SaveChanges:=False
EndIf
EndSub

' There were 'easy hint'. Small letters with Your 'right code'.
' ThisWorkbook.Close savechanges:=False
' That tells something is wrong
' (and it don't help even You change those to 'SaveChanges')