VBA help needed to delete a column - Easy

[unit213]

This should be a piece of cake for you guys. I'm trying to piece together some code that will find "Grand Total" on a worksheet and delete the column it's located in.

I've searched and I didn't find anything even though I'm sure this has been covered.

Thanks.

Dan

 

[Tom Urtis]

One way while avoiding unncessary error traps or bypasses:

Sub Test1()
Dim GT As Variant
Set GT = Cells.Find(What:="Grand Total", LookIn:=xlValues, LookAt:=xlWhole)
If Not GT Is Nothing Then Columns(GT.Column).Delete
End Sub

 

[unit213]

As always, your solution worked like a champ Tom. Thanks for the help.