PDA

View Full Version : Creating and renaming work sheets to correspond with worksheets of a nother WB



mugcy
03-20-2009, 05:49 PM
I am very new to VBA. I have a problem.

I have two workbooks..WB1 and WB2. WB1 has 10 Worksheets. I need to create and rename 10 worksheets in WB2 with the same sheet names as WB1.

Can Some one please help me????????:dunno

mdmackillop
03-20-2009, 06:08 PM
Assumes workbooks are open. Rename to suit


Sub Dups()
Dim WB1 As Workbook
Dim WB2 As Workbook
Dim i As Long
Set WB1 = book1.xls
Set WB2 = book2.xls

For i = WB2.Sheets.Count To 10
WB2.Sheets.Add
Next
For i = 1 To 10
WB2.Sheets(i).Name = WB1.Sheets(i).Name
Next
End Sub

mugcy
03-20-2009, 06:21 PM
Thanks heaps admin.