Didn't have time to test any of this as you need to clarify your request.
Sub Macro2()
'Application.ScreenUpdating = False
Range("F3:F52").Copy Range("H3")
Columns("H:H").Insert Shift:=xlToRight
Range("F3:F52").ClearContents

'what about this line for each sheet
Sheets("Sheet1").Range("A2:C26").ClearContents
application.goto Sheets("Sheet2").Range("F3")

' Application.ScreenUpdating = True
End Sub
for all ws

Sub Macro2()
for each ws in worksheets
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("Sheet1").Range("A2:C26").ClearContents
application.goto Sheets("Sheet2").Range("F3")

end with
next ws
End Sub


--
Don Guillett
SalesAid Software

"Hazel" wrote in message
...
Hi All you experts out there,

I have a little macro code below which runs on Sheet1 of my workbook -- as
I
have 26 sheets in the workbook when I run the macro - Ineed it to run on
every sheet not just on Sheet 1 -- how would I alter the macro. When you
read
the code you will probably come up with something much better and easier.

Sub Macro2()
Application.ScreenUpdating = False
Range("F3:F52").Select
Selection.Copy
Range("H3").Select
ActiveSheet.Paste
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("F3:F52").Select
Selection.ClearContents
Sheets("Sheet1").Select
Range("A2:C26").Select
Selection.ClearContents
Sheets("Sheet2").Select
Range("F3").Select
Application.ScreenUpdating = True
End Sub

--
Many thanks

hazel