not sure exactly what you want on the summary sheet, but i assumed you wanted a3
for each sheet added on the summary sheet and the same with b4.

see if this helps, if not, post back with more details


Sub test()
Dim i As Integer, Sheet As Worksheet
Dim wks As Worksheet
Set wks = Worksheets("Summary")

For i = 3 To Worksheets.Count Step 1
With Worksheets(i)
wks.Range("A3") = wks.Range("A3") + .Range("a3")
wks.Range("B4") = wks.Range("B4") + .Range("B4")
End With
Next i
End Sub



--


Gary


wrote in message
ups.com...
Hi

I'm very new to macros and would appreciate any help. I am using Excel
in MS Office 2003. I'm trying to write a macro that summarizes info
onto a Summary tab from Multiple worksheets starting at the 3rd
worksheet. All the worksheets are set up similarly and I want to pull
the same 2 cells B4 and A3 from each worksheet to the Summary page.
Also all my worksheets have names. I tried changing the "Sheet" to
"Worksheet" and that doesn't help. What am I doing wrong?

Dim i As Integer, Sheet As Worksheet

Range("A1").Select
For i = 3 To Worksheets.Count Step 1
ActiveCell.FormulaR1C1 = "=Sheet(i)!R[3]C[1]"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=Sheet(i)!R[2]C[-1]"
ActiveCell.Offset(1, -1).Range("A1").Select
Next i
End Sub

Thanks
Thanks