Private Sub Worksheet_Change

[tina]

Hi
How do I get following to work when change cell I4 only
Private Sub Worksheet_Change(ByVal Target As Range)
Thanks
Pat

 

[tina]

Sorry wrong place should be in excel
Pat