VBA sub : DeleteColumns

In order to delete columns of a sheet, we can use below simple sub:

InputString = "C,G,H,I,J,T,U,V,W,X,Y"
DeleteColumns (InputString)

Sub DeleteColumns(InputString As String)
    Dim aString As Variant
    aString = Split(InputString, ",")
    cString = UBound(aString) + 1
    For c = cString To 1 Step -1
        Columns(aString(c - 1)).Select
        Columns(aString(c - 1)).Delete
    Next c
End Sub