Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting Several Sheets
I have one sheet that serves as an menu to name several new sheets in
my workbook. I would like to add to this code. I need Range("a3") on each NEW worksheet to contain a heading from the same list. It would say, "Regional Office 325 2008". The "325" for the header would come from the sheet.name. Any ideas? Sub copyCleanTemp() Dim rngName As Range Dim i As Integer Set rngName = ThisWorkbook.Sheets("RegDivList").Range("e2") Do Until rngName.Value = "" i = ThisWorkbook.Sheets.Count Sheets("CleanTemp").Copy After:=Sheets(i) ThisWorkbook.Sheets(i + 1).name = rngName.Value Set rngName = rngName.Offset(1) Loop End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Conditional Formatting In and Across Sheets | Excel Discussion (Misc queries) | |||
formatting sheets in a workbook | Excel Worksheet Functions | |||
formatting sheets | Excel Discussion (Misc queries) | |||
Conditional Formatting In and Across Sheets | Excel Discussion (Misc queries) | |||
Formatting sheets | Excel Discussion (Misc queries) |