Something to keep in mind: If you have swapped the order of some of
the sheet tabs, and want the order of execution to be the order of the
tabs, use:

Dim x%
for x% = 1 to worksheets.count
sheets(x%).Name = sheets(x%).Range("e61").Value
next x%

Carl.

On Nov 10, 4:20 pm, ToddEZ wrote:
Works GREAT!!!!!!! This saves me so much time! Thanks!!!



"Bill Renaud" wrote:
Try setting up your code to be more like the following. (This is not
totally tested. There are still some errors in your For loop that I can't
debug without knowing your data better. Also, be careful. The SpecialCells
property may fail, if there are no formulas!)

'----------------------------------------------------------------------
Public Sub FormatAllWorksheets()
Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets
FormatWorksheet ws
Next ws
End Sub

'----------------------------------------------------------------------
Sub FormatWorksheet(ws As Worksheet)
Dim cell As Range

With ws
.Name = .Range("e61").Value
End With

With ws.UsedRange
.Rows.Hidden = False
For Each cell In .Columns("h").SpecialCells(xlCellTypeFormulas)
If cell.Text = "dlt" Then cell.EntireRow.Hidden = True
Next cell
End With
End Sub

--
Regards,
Bill Renaud- Hide quoted text -

- Show quoted text -