code not doing what I intended

[gheyman]

Why is this not clearing the rows and why is it hiding column C?

I am running it from a button on a different sheet

Private Sub CommandButton2_Click()

On Error Resume Next

   Sheets("ItemTemplate").Activate
    Rows("2:200").Clear
    
    Range("A1").Value = "UserId"
    Range("B1").Value = "ParentItemID"
    Range("C1").Value = "ItemID"
    Range("d1").Value = "ItemDescription"
    Range("A2").Select
    
    Columns("E:E").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
    Range("D14").Select

End Sub

 

[Fluff]

What happens if you remove this line

On Error Resume Next

 

[gheyman]

What happens if you remove this line

On Error Resume Next

I don’t. Think that’s the problem. Even if I take it out it doesn’t clear and it hides C

 

[Norie]

Does this work?

Private Sub CommandButton2_Click()

    With Sheets("ItemTemplate")
        .Rows("2:200").Clear
        .Range("A1:D1").Value = Array("UserId", "ParentItemID", "ItemID", "ItemDescription")
        .Range(.Columns("E:E"), .Columns("E:E").End(xlToRight)).EntireColumn.Hidden = True
        applicaton.Goto .Range("D14"), True
    End With

End Sub

 

[Fluff]

What happens if you remove this line

On Error Resume Next

Did you get any error messages?
Also do you have any merged cells?

 

[gheyman]

Thank you, all. Norie's code worked.