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