Hi could someone please help me. I'm doing my thesis and have some hefty Excel calculations. I have about 100 sheets (50 gragh, 50 data). All data sheets have a common column (of formulas). I have changed the formulas in one and am not looking forward to copying that column to the other 50. I recorded a macro for copy from one to another Sheets("Phase 1").Select Columns("A0:A0").Select Selection.Copy Sheets("Phase 2").Select Columns("AO:AO").Select ActiveSheet.Paste If the code above is what is needed to copy code from one sheet to next, how can I do a FOR loop (in VB for Excel) to make it got to 'Phase 3','Phase 4' ... 'Phase 50' automatically Please help John

by the time you get the answer it would have beed easier to make the macro 50 times longer and use that, Sheets("Phase 1").Select Columns("A0:A0").Select Selection.Copy Sheets("Phase 2").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 3").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 4").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 5").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 6").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 7").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 8").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 9").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 10").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 11").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 12").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 13").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 14").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 15").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 16").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 17").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 18").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 19").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 20").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 21").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 22").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 23").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 24").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 25").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 26").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 27").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 28").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 29").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 30").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 31").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 32").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 33").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 34").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 35").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 36").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 37").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 38").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 39").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 40").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 41").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 42").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 43").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 44").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 45").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 46").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 47").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 48").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 49").Select Columns("AO:AO").Select ActiveSheet.Paste Sheets("Phase 50").Select Columns("AO:AO").Select ActiveSheet.Paste that took me about 2 minutes to write copy and past it, its not what you wanted but it should work, and is a simple solution. cheers, Adrian

Thanks for above, but that is what I have - All I showed was only a small portion of what has to be copied (in all 4 columns) Please someone there must be a way to do above in a for loop and somehow concatinate onto the end of a string and incrementing number (for the next phase) and drop that into Sheets(__SHEET__).Select Anyone please...

Hi Try the following code! Option Explicit Sub ForLoopCopy() Dim intCounter As Integer Dim strSheetName As String Sheets("Phase 1").Select Columns("AO:AO").Select Selection.Copy For intCounter = 2 To 12 strSheetName = "Phase " & intCounter Sheets(strSheetName).Select Columns("AO:AO").Select ActiveSheet.Paste Range("A1").Select Next intCounter Sheets("Phase 1").Select Range("A1").Select End Sub Cheers Gabi

Thanks that is spot on, you have no idea how much time and bordum you have save me - free beer