ActiveSheet.Copy Befo=Sheets(1)
'the new sheet is now the activesheet
ActiveSheet.Name = Range("E2").Value
Sheets("Sheet2").Activate

Mike F
"Bevy" wrote in message
...
Hi, I have a macro where I need to paste the content of a copied cell
as the sheets name. Below is example of where I am, but can't find
the syntax to paste the copied value when re-naming the sheet. Any
suggestions would be really appreciated.... thanks Bev


Sub selectandcopy()

Cells.Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Select
ActiveSheet.Name = *****Paste copied selection from E2 here"
Sheets("Sheet2").Select
End Sub