Don't want to overwrite name; create new with a 2 on the end

Sub SaveToSidonna()
'
' Print_And_Save Macro
'
'

'
    Dim strPath As String
    Dim wb As Workbook
    
    Application.ScreenUpdating = False
    Sheets("ESTIMATING").Select
    ActiveWorkbook.Save
    Path = "\\Sidonna\c\Estimating\"
    'Path2 = "C:\Documents and Settings\Primary User\Desktop\Toms Main\"
    ActiveWorkbook.SaveAs Filename:= _
        Path & _
Range("B11").Value & ".xls", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    new_file = ActiveWorkbook.Name
    Range("F2").Select
    'Workbooks.Open Filename:=Path2 & "EstimatingSheetTest.xls"
    strPath = "C:\Documents and Settings\Primary User\Desktop\Toms Main\"
     If Dir(strPath & "EstimatingSheet.xls") <> "" Then
        Set wb = Workbooks.Open(strPath & "EstimatingSheet.xls")
     End If

     strPath = "C:\Documents and Settings\Owner\My Documents\Daily\"

     If Dir(strPath & "EstimatingSheet.xls") <> "" Then
        Set wb = Workbooks.Open(strPath & "EstimatingSheet.xls")
     End If
    Workbooks(new_file).Save
    Workbooks(new_file).Close
    Application.ScreenUpdating = True
End Sub