Simple VBA Code written in Excel 2003 not working in Excel 2000
You're welcome
"Rich B." wrote:
Hi. I wrote some simple code in Excel 2003 (see below) to hide certain rows
if the user selects a certain option button. It works fine on Excel 2003,
but when the user tries it on his machine (he has Excel 2000), he gets a
run-time 1004 error message. From what he describes it sounds like the error
is ocurring somewhere after the "End With" line since when he clicks "End" on
the error message screen, he is taken to the "TrlInputs" sheet (the started
on the "GenInputs" sheet since that is where the option button is located).
Any help would be greatly appreciated!
Thanks.
Rich
Private Sub OptionButtonActual_Click()
Application.ScreenUpdating = False
Sheets("TrlInputs").Select
Sheets("TrlInputs").Unprotect Password:="password"
With Sheets("TrlInputs")
.Rows("12:13").EntireRow.Hidden = True
.Rows("21:54").EntireRow.Hidden = False
End With
Sheets("TrlInputs").Range("A1").Select
Sheets("TrlInputs").Protect Password:="password", DrawingObjects:=True
Sheets("GenInputs").Select
Sheets("GenInputs").Range("H4").Select
Application.ScreenUpdating = True
End Sub
|