Thanks for uploading a file. That really helps to understand what you want to achieve. Try this macro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
Select Case Target.Column
Case 5, 9, 13, 17, 21, 25, 29
Target.Columns.ColumnWidth = 20
Case Else
Range("E:E").ColumnWidth = 1.43
Range("I:I").ColumnWidth = 1.43
Range("M:M").ColumnWidth = 1.43
Range("Q:Q").ColumnWidth = 1.43
Range("U:U").ColumnWidth = 1.43
Range("Y:Y").ColumnWidth = 1.43
Range("AC:AC").ColumnWidth = 1.43
End Select
Application.ScreenUpdating = True
End Sub
See attached file. Remember to save your file as a macro-enabled file with the XLSM extension.
Bookmarks