Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through worksheets with name change
I have this macro that copies data to new worksheet (below). I would
like to programmably change the day of the week from Sat to Mon, Tue, Wed, (no Sun) etc. and use a loop so I don’t have to rewrite macro 5 more times. I have asked the primary question on my previous posting but, am posting this question additionally, it being a new query. Any help would be appreciated, especially on Saturday. Sub CombineSat3() On Error GoTo EndOfMacro Windows("Consolidated Worksheet.xls").Activate For x = 1 To 12 Workbooks("combined sheets.xls").Sheets("Sat (" & x & ")").Range ("F6:F11").Copy Range("AC4").Offset(, x).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks :=False, Transpose:=False Next EndOfMacro: Exit Sub End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Looping through worksheets | Excel Programming | |||
Looping Thru Worksheets | Excel Programming | |||
Looping through worksheets | Excel Programming | |||
Looping through Worksheets | Excel Programming | |||
Looping through Worksheets | Excel Programming |