Creating and renaming work sheets to correspond with worksheets of a nother WB

[mugcy]

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????????

[mdmackillop]

Assumes workbooks are open. Rename to suit

[vba]
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

[/vba]

[mugcy]

Thanks heaps admin.