Worksheet change event when changing cell data

[andrewb90]

Hello all,

I am trying to do a worksheet change code, but can't quite get it right.

Private Sub Worksheet_Change(ByVal Target As Range)    If H16 < -10 Then
    Columns("I:I").Hidden = False
    End If
End Sub

What I am trying to do is, when the value of H16 is changed, and it is less than -$10.00, then Column I will be unhidden. I only want that to happen when the value in H16 is changed, not when any cell is changed.

Any help would be greatly appreciated.

 

[footoo]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H16]) Is Nothing Then
    If [H16] < -10 Then [I1].EntireColumn.Hidden = False
End If
End Sub

Or if you want column I unhidden when H16 < -10 and hidden when = > -10 then :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H16]) Is Nothing Then
    If [H16] < -10 Then
        [I1].EntireColumn.Hidden = False
    Else: [I1].EntireColumn.Hidden = True
    End If
End If
End Sub

 

[andrewb90]

awesome! thank you very much!