I am trying to create a macro within a worksheet to create a copy of the active sheet (named 'Invoices') and then save it to a specific folder on the desktop (named 'Saved Invoices') The macro works all the way up to the save point. From there I get a Run-time error of 424. Is there someone that could please help me finish this out? I would greatly appreciate any help provided. This is the macro as is currently appears:

Sub SaveInvoice()
Dim strPath As String
Dim strName As String
Dim strFullPath As String
If Range("F2") = "" Then
Beep
Exit Sub
End If
strPath = " C:\Users\Tim & Tammy\Desktop\Saved Invoices\"
MsgBox strPath
strName = Range("F2") & " " & Date & ".xlsx"
MsgBox strName
ActiveSheet.Copy
With ActiveSheet.Copy
Save.FilenameAs strPath & strName
MsgBox Filename
ActiveSheet.Close
End With
End Sub