According to the information supplied, this should work.
Sub Maybe() Dim i As Long, j As Long For i = 2 To ActiveWorkbook.Sheets.Count With Sheets(i) For j = 2 To .Cells(.Rows.Count, 5).End(xlUp).Row .Cells(j, 5).Value = WorksheetFunction.Round((.Cells(j, 5).Value / 0.93), 0) Next j End With Next i End Sub
Bookmarks