How to convert code to visible columns only?

[DarkJester89]

Sub AutoFitWrappedText()
    With Range("B2:CT2").EntireColumn
    .ColumnWidth = 8.5 ' maximum width
    .AutoFit
    End With
End Sub

I had alot of hidden columns, and this unhides them and autofits them, but just trying to apply to visible columns, thank you

 

[DarkJester89]

Sub AutoFitWrappedText()
    Dim i as Long

    For i = 2 to 98
        If Columns(i).Hidden = False Then
            Columns(i).ColumnWidth = 8.5 ' maximum width
            Columns(i).AutoFit
        End if
    Next i
End Sub

 

[JoeMo]

Try this non-looping version:

Sub AutoFitWrappedText()
    With Range("B2:CT2").SpecialCells(xlCellTypeVisible).EntireColumn
    .ColumnWidth = 8.5 ' maximum width
    .AutoFit
    End With
End Sub