Sub copySheet()
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
s1.Cells.Copy s2.Range("A1")
End Sub

--
Gary''s Student - gsnu200905


"ganga" wrote:

I have a sheet 1 with all the info and formula and I want to use macro to
copy that sheet into sheet 2 and where the formula says sheet 1 i want to
change that to sheet 2 and so on for the other sheets.

thank you in advance.