Combine create new sheet and copy paste values only macros

[oliviar]

Hi Guys,
I have two macros I want to combine in order to create new clean, value only backups within my workbook.
I want to make a new sheet and name it with todays date. Then I want to go to ANY other sheet, copy all of it, and paste it to the new sheet with VALUES only.

I have two macros which do the two seperate parts. But my copy macro wants to pick a specific sheet only, whereas I want it to go to the new sheet.

Sub copy()
'
' copy Macro
'
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
'
Cells.Select
Range("T8").Activate
Selection.copy
Sheets("20 Oct 10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
<o> </o>
Sub NewSheet()
On Error GoTo Error
Dim AddSheet
Sheets.Add
AddSheet = Format(Date, "dd mmm yy")
ActiveSheet.Name = AddSheet
Exit Sub
Error:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
MsgBox "A Sheet named " & AddSheet & " already exists."
End Sub

 

[oliviar]

For the first time ever, I am posting a solution to a problem! (It was my OWN problem, but I want it to count ).

This is the code that worked. It created a new sheet with today's date, and copies and pastes only the value from the sheet you were on, into the new sheet.

Sub Backup()

'
' Backup Macro
'
'
Cells.Select
Range("F19").Activate
Application.CutCopyMode = False
Selection.copy
Dim AddSheet
Sheets.Add
AddSheet = Format(Date, "dd mmm yy")
ActiveSheet.Name = AddSheet
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

I hope someone else can use this one day.