Excel 2007 macro does not work

M

Maritza

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top