Kopie eines Blattes + speichern

Private Sub CommandButton1_Click()
ActiveSheet.Copy
ChDir "C:\"
temp = "C:\test\Re-Nr-" & Range("F24").Text & ".xls"
ActiveSheet.SaveAs FileName:=temp, FileFormat:=xlNormal
ActiveWorkbook.Close
End Sub

Per Button soll nur das aktive Blatt kopiert werden und dann wie angegeben speichern.
Jetzt krieg ich die Meldung "Die Copy Methode des Worksheet Objektes ist fehlerhaft.
Kann jemand helfen.Bin leider im Aufbau eines Codes nicht firm.
Danke Andreas