I want to end up with A4 being selected in all the worksheets, not necessary in sheets total and Dates but it is ok, Is there anyway besides the way I am doing it below, this way I have to know what sheets are in the workbook. Can this be done for all the sheets without them being named? I have tried ws.Range("A4").Activate and ws.Range("A4").Select but this does not work. Thanks, Excel ‘97
Sub Clear_Sheet()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Total" And ws.Name <> "Dates" Then
ws.Range("A4:C250").ClearContents
ws.Range("A4") = "Start Here"
Sheets(Array("Dee", "Brian", "Joe", "Rusty", "Ken", "David H", _
"Wesley", "Randy", "David S", "Jack", "Scott", "Tony", "Charlie", "Kelvin")).Select
Sheets("Dee").Activate
Range("A4").Select
End If
Next ws
Application.ScreenUpdating = True
End Sub
Sub Clear_Sheet()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Total" And ws.Name <> "Dates" Then
ws.Range("A4:C250").ClearContents
ws.Range("A4") = "Start Here"
Sheets(Array("Dee", "Brian", "Joe", "Rusty", "Ken", "David H", _
"Wesley", "Randy", "David S", "Jack", "Scott", "Tony", "Charlie", "Kelvin")).Select
Sheets("Dee").Activate
Range("A4").Select
End If
Next ws
Application.ScreenUpdating = True
End Sub