What code could I use to copy a particular formula & format from one
cell to the same cell in all sheets between 2 specific ones? This
would allow a short-cut for me inside of copying it manually 52 times

My Formula which I want to use is in sheet 02-11-08 - Cell L36
The 2 sheets between which I want to copy the above formual is "Start"
& "End" - thus every sheet between these should have the formula and
not these two

Thanks

This will use the Clipboard so it need only copy once and then loop\paste
through the sheets.

Sub CopyStart2End()
Dim i As Integer, sNDX As Integer, eNDX As Integer

sNDX = Worksheets("Start").Index + 1 'after Start
eNDX = Worksheets("End").Index - 1 'before End
'if there are always 52 sheets between Start & End
'then use the next 4 lines to check that there are
' If eNDX - sNDX <> 51 Then
' MsgBox ("A sheet is missing")
' Exit Sub
' End If
Worksheets("02-11-08").Range("L36").Copy
For i = sNDX To eNDX
With Worksheets(i)
.Activate
.Paste .Range("L36")
End With
Next
Application.CutCopyMode = False
End Sub


Mike F
"Seanie" <(E-Mail Removed)> wrote in message
news:b48ed03d-ddf9-4bb8-86ba-(E-Mail Removed)...
> What code could I use to copy a particular formula & format from one
> cell to the same cell in all sheets between 2 specific ones? This
> would allow a short-cut for me inside of copying it manually 52 times
>
> My Formula which I want to use is in sheet 02-11-08 - Cell L36
> The 2 sheets between which I want to copy the above formual is "Start"
> & "End" - thus every sheet between these should have the formula and
> not these two
>
> Thanks

Mike, thats fantastic