Sending only the active sheet

[Bob T]

I have a workbook with many sheets each going to a different address. How can I change the following to send the active sheet instead of sheet “Parts”? I really appreciate all your help!

Sub Send_Test()
'Send the file to test address
Sheets("Parts").Copy
Set A = Range("A2") 'e-mail address
Set C = Range("A1") 'subject line
Application.Dialogs(xlDialogSendMail).Show _
arg1:=A, _
arg2:=C

End Sub

[Vas]

Sub Send_Test()
'Send the file to test address
ActiveSheet.Copy
Set A = Range("A2") 'e-mail address
Set C = Range("A1") 'subject line
Application.Dialogs(xlDialogSendMail).Show _
arg1:=A, _
arg2:=C

Should work, right?