Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
To named Sheets
Hello from Steved
The below will copy to each named worksheet. Can it be devoloped to copy City to City WorkSheet, Roskill to Roskill Worksheet, Papakura to Papakura Worksheet, Wiri to Wiri Worksheet, Shore to Shore Worksheet, Orewa to Orewa Worksheet, Swanson to Swanson Worksheet, Waiheke to Waiheke Worksheet and Wellington to to Wellington Worksheet all from the worksheet called Audit Report. Thankyou. Sub test3() Dim Source As Range Dim WS As Worksheet Set Source = Worksheets("Audit Report").Range("A6:Q255") For Each WS In Worksheets If WS.Name < "Audit Report" Then With Source WS.Range("A6").Resize(.Rows.Count, .Columns.Count).Value = .Value End With End If Next End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i add up the same cell from multiple named tab sheets | Excel Discussion (Misc queries) | |||
List Sheets excluding sheets named ***-A | Excel Discussion (Misc queries) | |||
Add new named sheets | Excel Discussion (Misc queries) | |||
Rows to Named Sheets | Excel Worksheet Functions | |||
Named list of sheets | Excel Worksheet Functions |