I have the following code in an assigned macro to copy and paste to a new sheet.
What I would like to do is to be able to save the sheet as a specific name (in this case the date as six figurs eg. 030615) based on a cell.
Does anybody know how I would edit my code to do this ?
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Weekly Team Performance").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("State of Play").Select
Range("C3").Select
End Sub
What I would like to do is to be able to save the sheet as a specific name (in this case the date as six figurs eg. 030615) based on a cell.
Does anybody know how I would edit my code to do this ?
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Cells.Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Weekly Team Performance").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("State of Play").Select
Range("C3").Select
End Sub