Sheet rename form data from cell

[banuprashanth]

Hi

I have a sheet and have data in the cell from A2 to A 17 i want a macro that will copy the data from cell and create a sheet in the workbook.

prashanth

 

[VoG]

Try like this

Sub ctest()
Range("A2:A17").Copy
Sheets.Add after:=Sheets(Sheets.Count)
Range("A2").PasteSpecial Paste:=xlPasteAll
End Sub