Resizing multiple columns with multiple values

Hi friends,

I have got this code for resizing the default column width.

Private Sub F()

Range("A:A").Select
Selection.ColumnWidth = 50.5
Range("B:B").Select
Selection.ColumnWidth = 26.01
Range("C:C").Select
Selection.ColumnWidth = 47.33
Range("D:D").Select
Selection.ColumnWidth = 20.33

End Sub

Can I make it in a single line of code?

Thank you
Roshan Shakya