Hi Darrel,

Sub SaveCopy()
'
' SaveCopy Macro
'
Sheets("Summary").Copy Befo=Sheets(1)
with ActiveSheet
.Cells.Copy
.Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
.Name = .Range("B3").Value
Enhd With
WorkSheets("Summary").Select
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Darrel " wrote in message
...
Currently using this macro to save copy of sheet in same book.
What am wanting to do if possible, is take the value from cell b3, as
copy is created and use it for the new sheet name. Looked at multiple
postings and haven't been able to find something specific to this. Any
help would be appreciated.

Sub SaveCopy()
'
' SaveCopy Macro
'
Sheets("Summary").Select
Sheets("Summary").Copy Befo=Sheets(1)
ActiveSheet.Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets("Summary").Select
End Sub


---
Message posted from http://www.ExcelForum.com/