Macro: copy select, create new sheet

[sitelbanat]

Hello,

How can I create a macro that copies the rows that are selected on the master page and paste them on a new sheet then names the sheet the same value as cell A1.

Thanks!

 

[Yahya]

Try this Code

Sub Test()
Dim ws As Worksheet, Mws As Worksheet
Set Mws = Sheets("Master")
For Each ws In Sheets
    If ws.Name = Mws.Range("A1").Value Then
    GoTo 1
    End If
Next ws
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = Mws.Range("A1").Value
1
Mws.Activate
With Selection
    .Copy Sheets(Mws.Range("A1").Value).Range("A" & Sheets(Mws.Range("A1").Value).Range("A" & Rows.Count).End(xlUp).Row + 1)
End With
End Sub