B
Big Chris
Please can anybody help?......and thanks in advance for looking.
I'm using the code below on a number input macro to check to see if th
number entered is the same as the validation code in hidden sheet1!A1
It works perfectly in Excel 2000 but a user reports that in Excel XP h
gets the message: "Compile error in module 2". When I looked at it i
appears that the problem is at the point of 'MyNum' in the 6th row.
I'm lost as to why it works in the earlier version but not in XP. Ca
anyone please suggest an answer?
Thanks!
-------------------------------------------------------------
Sub InputNumber()
Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
myNum = InputBox("Please enter your 8 digit validation code. If yo
don't know it please contact XXXX", "Box Title")
If myNum = "" Then
Sheets("Sheet1").Visible = False
Sheets("Setup Sheet").Select
Application.ScreenUpdating = True
Exit Sub
End If
Range("A1").Value = myNum
Sheets("Sheet1").Visible = xlSheetVeryHidden
Sheets("Setup Sheet").Select
Application.ScreenUpdating = True
End Sub
I'm using the code below on a number input macro to check to see if th
number entered is the same as the validation code in hidden sheet1!A1
It works perfectly in Excel 2000 but a user reports that in Excel XP h
gets the message: "Compile error in module 2". When I looked at it i
appears that the problem is at the point of 'MyNum' in the 6th row.
I'm lost as to why it works in the earlier version but not in XP. Ca
anyone please suggest an answer?
Thanks!
-------------------------------------------------------------
Sub InputNumber()
Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
myNum = InputBox("Please enter your 8 digit validation code. If yo
don't know it please contact XXXX", "Box Title")
If myNum = "" Then
Sheets("Sheet1").Visible = False
Sheets("Setup Sheet").Select
Application.ScreenUpdating = True
Exit Sub
End If
Range("A1").Value = myNum
Sheets("Sheet1").Visible = xlSheetVeryHidden
Sheets("Setup Sheet").Select
Application.ScreenUpdating = True
End Sub