VBA Code works in Excel 2003 but won't work in Excel 2000
 

Hi, everyone.

Thanks in advance for your help. I've got a very simple piece of code
written for Excel 2003 that crashes on a computer running Excel 2000,
and I can't figure out what the issue is for the life of me. Any
assistance would be greatly appreciated -- no need to rewrite the
code;
just let me know what the offending piece is. The Excel 2000 user
says
when he gets the run-time error and clicks debug, it drops him on the
Sub xxx() line.

Thanks.

Aaron


Code:
--------------------
Sub CompetitorPg1to2()
Dim CompetitorNum As Integer
Dim NextShtNm As String

CompetitorNum = Left(ActiveSheet.Name, 1)

If CompetitorNum = 1 Then
NextShtNm = "1st Competitive set 2 of 2"
ElseIf CompetitorNum = 2 Then
NextShtNm = "2nd Competitive set 2 of 2"
ElseIf CompetitorNum = 3 Then
NextShtNm = "3rd Competitive set 2 of 2"
ElseIf CompetitorNum = 4 Then
NextShtNm = "4th Competitive set 2 of 2"
ElseIf CompetitorNum = 5 Then
NextShtNm = "5th Competitive set 2 of 2"
Else
MsgBox ("Page change error. Please contact the application
administrator.")
Exit Sub
End If

Call SwitchSheet(Sheets(NextShtNm))

End Sub

'----------------------

Sub SwitchSheet(aSht As Worksheet)
Application.ScreenUpdating = False
aSht.Visible = xlSheetVisible
ThisWorkbook.ActiveSheet.Visible = xlSheetHidden
aSht.Activate
aSht.Select
aSht.Range("A1").Select
Application.ScreenUpdating = True
End Sub
--------------------


--
aglazer
------------------------------------------------------------------------
aglazer's Profile: http://www.excelforum.com/member.php...o&userid=26975
View this thread: http://www.excelforum.com/showthread...hreadid=401871

VBA Code works in Excel 2003 but won't work in Excel 2000
 

What's the error message? sounds like it might be a bad dim or compil
error. refer to the error.

you have a type mismatch - redimension your CompetitorNum as a string

--
gearo
-----------------------------------------------------------------------
gearoi's Profile: http://www.excelforum.com/member.php...fo&userid=2657
View this thread: http://www.excelforum.com/showthread.php?threadid=40187

VBA Code works in Excel 2003 but won't work in Excel 2000
 

Thanks.

I've set CompetitorNum as both an Integer and a String; doesn't make
difference either way.

It compiles & runs fine in Excel 2003, and the code doesn't have a
Option Explicit, so it shouldn't be a Dim error.

I'll get the exact error message from the user and post it to see i
you have any additional thoughts.

Thanks,

Aaro

--
aglaze
-----------------------------------------------------------------------
aglazer's Profile: http://www.excelforum.com/member.php...fo&userid=2697
View this thread: http://www.excelforum.com/showthread.php?threadid=40187