Change column width based on empty cells

[vascobmcastro]

Hi,

I have a table that ranges from columns G:AF. Row 3 (G3:AF3) has text which can be empty or not. How could I set a full column width for the columns that show empty values in the G3:AF3 range?

Thank you

Vasco

 

[snjpverma]

Try if this does what you want. You may have to adjust the widths as per your needs though.
Please save a back up of your file before trying my code as I am a VBA beginner.
Once you confirm that this serves the purpose, the expert member might give you a better and more efficient version of this.

Sub adjustcolwidth()

Dim c As Range

    For Each c In Range("G2:AF2")

        If c = "" Then
            c.ColumnWidth = 0.5
           
            Else
            c.ColumnWidth = 3
        End If

    Next

End Sub