Dim MyRng As Range
Set MyRng = Range("H2:H20") 'Set Range as appropriate
Dim DateString As String
DateString = "dd mmm yy" 'Customise date striing as you please
MyRng.NumberFormat = DateString
If you want to apply to an entire column
Code:
Dim MyRng As Range
Set MyRng = Range("H:H") 'Set as appropriate
Dim DateString As String
DateString = "dd mmm yy" 'Customise date striing as you please
MyRng.NumberFormat = DateString
If you want to select the entire column based on the current cell
Code:
Dim MyRng As Range
Set MyRng = Columns(Selection.Column) 'Set by current selected cell address
Dim DateString As String
DateString = "dd mmm yy" 'Customise date striing as you please
MyRng.NumberFormat = DateString