autofit all columns without unhiding hidden columns

[poiu]

Hello,

Please can you tell me how to autofit all columns without unhiding any hidden cells?

The following autofits all columns but unhides hidden cells:

Cells.EntireColumn.AutoFit


Thanks,

Poiu

 

[Weaver]

try this:

Sub test()
    Application.ScreenUpdating = False
    For Each c In Activesheet.UsedRange.Columns
        If Not c.EntireColumn.Hidden Then
            c.EntireColumn.AutoFit
        End If
    Next
End Sub

 

[poiu]

Thanks Weaver