Selecting multiple columns for reformatting

I need a quicker and more efficient way of reformatting date columns. I put together the following code but it only allows me to specify a single column or continuous range.

I would like to be able to quickly identify multiple columns that need to be reformatted.

I would like to be able to input the column letters (a,b,d,e,f ect…) and have each of the respective columns selected for reformatting.

Any ideas on how do to this would be greatly appreciated.
Thanks!

Sub DateFormat()

Dim ActSheet As Worksheet
Dim clm
Dim frmt
    Set ActSheet = ActiveSheet
    clm = InputBox("What Column Do You Need to Reformat?", "Column Selection", "a")
    frmt = InputBox("Format?", "Format", "dd/mm/yy hhss")

    If clm = "<>""" Then
    ElseIf clm = "" Then
        MsgBox "Form was null.  Select range and try again"
    End If
    
    On Error GoTo Etrap
    
    Columns(clm).Select
        With Selection
        .NumberFormat = frmt
        End With

Etrap:
    Beep

End Sub

Why not use cell selection as a means to generalize this? For example,

Sub DateFormat()
' change the number for mat of the selection to user specified format
     dim frmt as String
     frmt = InputBox("Format?", "Format", "dd/mm/yy hhss")


    With Selection
        .NumberFormat = frmt
    End With
End Sub

Then you just select the cells you want to format and run the macro. Assign it to a quick key to make it even faster.

Use Application.InputBox (as opposed to just InputBox) with type=8

Dim Range As Range

Set Range = Application.InputBox _
("Select a range", "Range Selection Input" _
                               , , , , , , 8)

Range.NumberFormat = frmt

You can select more than one area or several non-contiguous columns ... whatever

You're welcome. Thanks for the feedback.