Hi again,

One more today, Im trying to improve a wookbook i use quite often.

It uses the macro below to save a copy of itself which is fine, but I would like to change it to only export one sheet called "Quotation" and if possible save only number/text values for the whole sheet apart from the formula's in cells F11:41, I11:41 & N11:41 though I don't know if this is even possible.




Private Sub extoexcel()
    Dim WSHShell As Object
    Dim DesktopPath As String
    Dim strName As String
    Dim p As Integer
    Dim nwb As String

    On Error GoTo EH

    Application.EnableEvents = False

    nwb = Application.InputBox("Enter new report name", _
                               "Starting a new report", Type:=2)
    If nwb = "False" Then GoTo EH

    Set WSHShell = CreateObject("WScript.Shell")
    DesktopPath = WSHShell.SpecialFolders("Desktop")
    Set WSHShell = Nothing

    ThisWorkbook.SaveAs Filename:=DesktopPath & "\" & _
                                  nwb, FileFormat:=xlOpenXMLWorkbookMacroEnabled

    strName = ActiveWorkbook.Name
    p = InStrRev(strName, ".")
    strName = Left(strName, p - 1)
    MsgBox "Your new report named " & strName & " is now ready and has been placed on your desktop."

EH:
    Application.EnableEvents = True
End Sub