delete columns

[AMUTHAN.S]

I need on 10 columns in a worksheet and the rest to be deleted with a single command

 

[VoG]

Try

Sub DelCols()
Dim LC As Integer, i As Integer
LC = Cells(1, Columns.Count).End(xlToLeft).Column
For i = LC To 11 Step -1
    Columns(i).Delete
Next i
End Sub

 

[VoG]

Actually, this is better

Sub DelCols()
Dim LC As Integer
LC = Cells(1, Columns.Count).End(xlToLeft).Column
If LC > 10 Then Range(Cells(1, 11), Cells(1, LC)).EntireColumn.Delete
End Sub