Hazel, I don't understand the need for 3 if statements. Why can't you
just say
If ws.Name<"Sheet 1" and ws.Name<"Sheet 2" and ws.Name <"Sheet 3"
Then
? James
Hazel wrote:
Hi All

A few days ago I used this forum and sorted out my problems with the following


Sub Macro2()
For Each ws In Worksheets
If ws.Name < "Sheet 1" Then
If ws.Name < "Sheet 2" Then
If ws.Name < "Sheet 3" Then
With ws

.Range("F3:F52").Copy .Range("H3")
.Columns("H:H").Insert Shift:=xlToRight
.Range("F3:F52").ClearContents

'what about this line for each sheet
Sheets("Sheet 1").Range("A2:C26").ClearContents
Application.Goto Sheets("Sheet 2").Range("F3")


End With
End If
End If
End If
Next ws
End Sub

To really finish the macro off and keep my boss happy, in Column H after
running the macro are numbers on the relevant rows and cells (most of the
time their are blank rows and cells between the relevant numbers) what they
would really like to happen is the numbers being deleted and the cells
changing colour so they can see at a glance who is doing the business on that
day.
--
Many thanks

hazel