Hi folks,
I am making a right mess of this...
Amateur hour.
Could use a pro.
My aim is to hide difference rows based on which number is in a cell.
Upto the following
<=250
<=7500
<=375000
<=1875000
My mangled macro is below. Apologies if it reads poorly. Any help would be greatly received.
-----------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$36" Then
Select Case Range("I36").Value
Case Is = Range.Value <= 250:
Rows("40:52").EntireRow.Hidden = True
Rows("40:41").EntireRow.Hidden = False
Case Is = Range.Value <= 7500:
Rows("40:52").EntireRow.Hidden = True
Rows("43:44").EntireRow.Hidden = False
Case Is = Range.Value <= 375000:
Rows("40:52").EntireRow.Hidden = True
Rows("46:47").EntireRow.Hidden = False
Case Is = Range.Value <= 1875000:
Rows("40:52").EntireRow.Hidden = True
Rows("49:50").EntireRow.Hidden = False
End Select
End If
End Sub
Bookmarks