Trouble with exit

[jose luis]

Hello,

I trying to detect if the aplication is running on a Mac

Private Sub Workbook_Open()
#If Mac Then
MsgBox "Sorry this Application runs in Windows only."
SwInicio = True
#End If

If SwInicio = False Then
"Windows intructions"
End if
End Sub

and in that case force the application to quit. Already try with Exi
Sub, but the program jumps to the next subs and continues running.

Any idea?

Thanks in advance.

jose lui

 

[Ron de Bruin]

Hi Jose

Use this
Application.Operatingsystem

See Help for more details