Thoght I had this Application.Version solved??

[Guest]

Hi;

My friend has Excel version 9.0 (from Application.Version in a MsgBox). I
have version 10.

I have the following in my startup code:

If Application.Version >= "10" Then
MembSheet.Protect _
Password:="bill", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=False, _
AllowFormattingRows:=False, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=True, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True
Else
MembSheet.Protect _
Password:="bill", _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
End If

It works perfectly on my version 10 machine. His keeps giving an error; the
debugger shows that his machine is not making the jump over the 'Then'
statement to the 'Else' and his error always comes about when his compiler
tries to read the version 10 Protect block (I know the commands are different
in the two versions). I have googled and searched this list. I can find no
hints. The only thing I haven't tried is 'Val(Application.Version) >= 10 but
that shouldn't be necessary, should it?

I am baffled.

Regards Bill

 

[NickHK]

Bill,
Application.Version returns a string not a numeric.

You need to use the numeric 10, not the string "10"
Otherwise, you are comparing the strings "9.0" and "10". And Asc(9)>Asc(1)

NickHK

 

[Tom Ogilvy]

From the immediate window:

? "9.0" > "10"
True

Your doing a string compare. Use Val to do a numerical comparison.

 

[Bob Phillips]

Use Val(Application.Version) and test for > 10

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)