This should do itOption ExplicitSub formatSheets()Dim xDim yx = Worksheets.CountWhile x > 1Worksheets(x).ActivateFormat1doeventsx = x - 1WendApplication.Worksheets(x).Activateformat2End Sub