T
Tom
Hi all,
I have a workbook with a fair amount of code written into it. I emailed
myself a copy of the workbook home on the weekend to work on it and kept
getting an error with one of the macros at home. I am (was) using the SAME
version of Excel - 2002 SP3 until I got completely frustrated and dropped the
$$$ for 2007 for my PC at home. Same problem.
The part of the code that is hanging is:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet, sh1 As Worksheet
Dim rng As Range, Cell As Range
Set rng = Worksheets("Main").Range("C8:C17")
If Not Intersect(Target, rng) Is Nothing Then
For Each sh1 In Worksheets
ERROR ---> bVisible = False
If LCase(sh1.Name) <> "main" Then
For Each Cell In rng
Set sh = Nothing
On Error Resume Next
Set sh = Worksheets(Cell.Value)
On Error GoTo 0
If Not sh Is Nothing Then
If sh.Name = sh1.Name Then
bVisible = True
Exit For
End If
End If
Next Cell
If bVisible Then
sh1.Visible = xlSheetVisible
Else
sh1.Visible = xlSheetHidden
End If
End If
Next sh1
End If
End Sub
Any ideas on how to fix this issue? It seems that the same libraries /
add-ins are installed.
Thanks in advance,
Tom
I have a workbook with a fair amount of code written into it. I emailed
myself a copy of the workbook home on the weekend to work on it and kept
getting an error with one of the macros at home. I am (was) using the SAME
version of Excel - 2002 SP3 until I got completely frustrated and dropped the
$$$ for 2007 for my PC at home. Same problem.
The part of the code that is hanging is:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet, sh1 As Worksheet
Dim rng As Range, Cell As Range
Set rng = Worksheets("Main").Range("C8:C17")
If Not Intersect(Target, rng) Is Nothing Then
For Each sh1 In Worksheets
ERROR ---> bVisible = False
If LCase(sh1.Name) <> "main" Then
For Each Cell In rng
Set sh = Nothing
On Error Resume Next
Set sh = Worksheets(Cell.Value)
On Error GoTo 0
If Not sh Is Nothing Then
If sh.Name = sh1.Name Then
bVisible = True
Exit For
End If
End If
Next Cell
If bVisible Then
sh1.Visible = xlSheetVisible
Else
sh1.Visible = xlSheetHidden
End If
End If
Next sh1
End If
End Sub
Any ideas on how to fix this issue? It seems that the same libraries /
add-ins are installed.
Thanks in advance,
Tom