Run Time Error 1004

[RIZVI]

Hi All,

I am getting Run Time Error 1004 on this code

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range Application.ScreenUpdating = False For Each c In Range("AG3:AR3,AW3:CF3") If c.Value = "0" Then c.EntireColumn.Hidden = True Else c.EntireColumn.Hidden = False End If Next Application.ScreenUpdating = False End Sub <tbody> </tbody> The debugging part that gets yellow is c.EntireColumn.Hidden = False Can any one help me where things are wrong and what correction is required. Thanks in anticipation. Rizvi

<tbody>
</tbody>

 

[dmt32]

Hi,
see if this change to your code helps.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In Range("AG3:AR3,AW3:CF3")
            Me.Columns(c.Column).EntireColumn.Hidden = c.Value = "0"
    Next
    Application.ScreenUpdating = True
End Sub

Dave

 

[RIZVI]

Hi Dave,

No the code still shows the same error

 

[Michael M]

@RIZVI
The code works fine for me....but I did change the zero to literal rather than text

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
    For Each c In Range("AG3:AR3,AW3:CF3")
        If c.Value = 0 Then
            c.EntireColumn.Hidden = True
            Else
            c.EntireColumn.Hidden = False
        End If
    Next
Application.ScreenUpdating = False
End Sub

 

[dmt32]

ADVERTISEMENT

Is the worksheet protected?

 

[RIZVI]

Hi Michael,

Tried the above code also,but the problem remains.

There are other codes also in the sheet. Can that be the reasons?

Need help please.

RGDS,

Rizvi

 

[Michael M]

You can only have the 1 sheet event

 

[RIZVI]

Sheet event is one only. The other codes are sub