I have a VB script that works in 2003 great but will not work in 2007

[rcirone]

I got this VB script last time here. And it works great in 2003. But now we have 2007 and it does not work can you help me.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" And Target.Value = "HideDues" Then
ActiveSheet.Unprotect ("cover")
Range("M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA,AC:AC,AE:AE,AG:AG,AI:AI,AJ:AJ").EntireColumn.Hidden = True
ActiveSheet.Protect ("cover")
Else
If Target.Address = "$A$3" And Target.Value = "UnhideDues" Then
ActiveSheet.Unprotect ("cover")
Range("M:M,O:O,Q:Q,S:S,U:U,W:W,Y:Y,AA:AA,AC:AC,AE:AE,AG:AG,AI:AI,AJ:AJ").EntireColumn.Hidden = False
ActiveSheet.Protect ("cover")
End If
End If
End Sub

 

[VoG]

In what way doesn't it work? It works for me in Excel 2010.

 

[rcirone]

In what way doesn't it work? It works for me in Excel 2010.

It will not unhide the cells.

 

[MARK858]

Works fine for me in 2003,2007 & 2010.
Have you enabled the macro's?
Have you placed the code in the Worksheet module and not the ThisWorkBook or Standard modules?

 

[rcirone]

Works fine for me in 2003,2007 & 2010.
Have you enabled the macro's?
Have you placed the code in the Worksheet module and not the ThisWorkBook or Standard modules?

I got it to work it was the macro's.
Can not beleave I forgot
Thank you