VBA Create worksheets base on selction

[ziad alsayed]

dear all

i have a sheet named "Sales" and another sheet named "Data", in the data sheet i have names in column A .

i need to create sheets base on selection in the data sheet, new worksheets that have the same format of the "sales" sheet and name it this sheet base on the selection.
in summary if i select 2 cells in need to create two sheets lile the sales sheet and name them base on the selection

appreciate any help.

 

[VoG]

Hi. Try this

Sub CopySheets()
Dim c As Range
For Each c In Selection
    Sheets("Sales").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = c.Value
Next c
End Sub

 

[ziad alsayed]

thanks Vog this is working

 

[ziad alsayed]

dear Vog

it seems i missed to mention one point.

i the data sheet and in columns B i have the position , i still need to move them to cell A3 in each sheet i copy with the below macro

i hope it is clear

 

[VoG]

Try

Sub CopySheets()
Dim c As Range
For Each c In Selection
    Sheets("Sales").Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = c.Value
        .Range("A3").Value = c.Offset(, 1).Value
    End With
Next c
End Sub