Excel 2007 macro does not work

G

Guest

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

Similar Threads

hide / show rows based on two drop down selectiosn 3
Separating sub procedures 4
macro 2
Macro help 4
Calling macros, looping function? Can this code be written more efficiently? 4
Hiding and unhiding rows with if statement macro 1
Worksheet_Change 3
Hide/Show Rows based on Cell Value with Data Validation 3

Top