Tabellenblatt per Makro speichern

ich möchte mittels Button aus einer Userform das Tabellenblatt 2 speichern können.
Und nur das Blatt zwei in einer seperaten Excel.xls

Habe das mit Google gefunden, versucht zu editieren, aber es kopiert trotz meiner Veränderungen auch das erste Blatt mit.

wo kann der fehler liegen:

Private Sub CommandButton17_Click()

Dim sInput As String

sInput = InputBox("Dateiname eingeben:", "Pfad")
If sInput = "" Then
MsgBox "Kein Speichername eingegeben!", vbExclamation, "Info"
sInput = InputBox("Dateiname eingeben:", "Pfad")
Else
'Hier deine Prozedur bzw. dein Speichern eintragen z.B
Sheets("Tabelle2").Activate
ActiveSheet.SaveAs ("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\" & sInput)
End If
End Sub

danke
Hansi