Problem with Autofit loop for each worksheet

Hi

Try

Sub FitNow()
'Autofit main columns of workbook
Dim i, j As Integer
j = Sheets.Count

For i = 1 To j
ActiveWorkbook.Sheets(i).Columns("A:H").EntireColumn.AutoFit
Next

End Sub

rylo