an active sheet save as copy

[coxonitus]

hello,
i'm having the following problem, and i'm getting it not fixed.

[vba]Dim exemplaar As String
exemplaar = Application.InputBox(Title:=UCase("Wat moet er gebeuren ?"), prompt:="* Document opslaan en afsluiten ? = Antwoord : Ja" & vbLf & "* Pagina afdrukken, geef aantal exemplaren :" & vbLf & "* niets doen : antwoord A", Default:="1", Type:=2)
Select Case UCase(exemplaar)
Case "", "A": MsgBox "je hebt op annuleren gedrukt"
Case "JA": ActiveSheet.SaveAs "G:\Project\Temp.File\Brandstofverbruik" & SheetName & ".xlsm"
Sheets("Schakelbord").Select
Range("E15").Select
Case Else
If IsNumeric(exemplaar) Then
If CInt(exemplaar) > 0 Then ActiveSheet.printout Copies:=CInt(exemplaar), Preview:=False
End If

End Select
End Sub[/vba]

The problem is, when i select "case Ja", it has to save the active sheet as copy in the folder on G( like above). with the Range A1 till J30. the Buttons i want to hide in the copy.
i just can't get it fixed!
please anyone

[Bob Phillips]

What bit needs fixing?