Casper;
MsgBox "Welcome to Microsoft Excel version " & _
Application.Version & " running on " & _
Application.OperatingSystem & "!"Shows the version number in a
messagebox Mark.-- Meer Excel ? www.rosenkrantz.nl of
(e-mail address removed)------------------------------------------------------
-------------Rosenkrantz Spreadsheet SolutionsWitkopeend 241423 SN
UithoornNederlandTel :
0297-527511-----------------------------------------------------------------
Sub WhatVersion()
Dim Isit97 As String
Isit97 = Application.Version
'MsgBox Isit97
If Val(Isit97) < 9 Then
' Put in code for Excel 97 here...
Else
' this is for Excel 2000 and above....
End If
End Sub
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.