Boston617
asked on
Get rid of Run-Time Error '91'
I keep receiving this error message, "Run-Time Error '91':Object variable or With block variable not set", when ever I click on any cell outside of column A. It is very annoying and distracting. How can I get rid of this message?
Below is the code I am using
Should I get rid of the 'intersect' line?
Below is the code I am using
Should I get rid of the 'intersect' line?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$A$12:$A$1500")) Then
If Range("C24").Value = 0 Then
Rows("24:27").EntireRow.Hidden = True
Else
Rows("24:27").EntireRow.Hidden = False
End If
If Range("C23").Value = 0 Then
Rows("23").EntireRow.Hidden = True
Else
Rows("23").EntireRow.Hidden = False
End If
If Range("C31").Value = 0 And Range("C32").Value = 0 Then
'both ranges are zero, hide rows 30-35
Rows("30:37").EntireRow.Hidden = True
ElseIf Range("C32").Value > 0 Then
'range > 0, display rows 32-35
Rows("32:37").EntireRow.Hidden = False
Rows("30").EntireRow.Hidden = False
'hide row 31
Rows("31").EntireRow.Hidden = True
ElseIf Range("C31").Value > 0 Then
'range > 0, display row 31
Rows("30:31").EntireRow.Hidden = False
'hide rows 32-35
Rows("32:35").EntireRow.Hidden = True
Else
'display rows 30-35
Rows("30:35").EntireRow.Hidden = False
End If
If Range("C39").Value = 0 And Range("C40").Value = 0 Then
Rows("38:45").EntireRow.Hidden = True
ElseIf Range("C39").Value > 0 Then
Rows("40:43").EntireRow.Hidden = True
Rows("38:39").EntireRow.Hidden = False
ElseIf Range("C40").Value > 0 Then
Rows("40:43").EntireRow.Hidden = False
Rows("39").EntireRow.Hidden = True
Else
Rows("38:45").EntireRow.Hidden = False
End If
End If
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
that worked perfectly, thank you
Open in new window