Evaluate
Exit Sub
End If
End Sub
End Function
End
Else
EntireColumn.Autofit
Each = For Each c In Activesheets.columns