In what way does it not work ?

Tim

"Maritza" wrote in message
...
The following macro was working in E2003, now that I've converted to E2007
is
does not. Any ideas?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("D7"), Target) Is Nothing Then
Range("A29:A42").EntireRow.Hidden = False

If Target.Value = "Refund: Client requested a cash refund." Then
Range("a29:a32").EntireRow.Hidden = True

ElseIf Target.Value = "Write off (Bad Debt): Client unwilling to
pay
and determination made to stop collection process." Then
Range("a33:a42").EntireRow.Hidden = True

Else
Range("A29:a32").EntireRow.Hidden = True
End If
End If
End Sub
--
Maritza