Copy a sheet and save as new file, without opening the file

Or, more simply,

Sub x()
    With Application
        .ScreenUpdating = False
        .Workbooks.Open "C:\myPath\MyWorkbook.xls"
        .Worksheets("Bid Sheet").Copy
        With .ActiveSheet
            .Name = .Range("B3").Value
        End With
        .ActiveWorkbook.SaveAs "C:\myOtherPath\someName.xls"
        .ActiveWorkbook.Close                       ' the new workbook
        .ActiveWorkbook.Close SaveChanges:=False    ' the old workbook
        .ScreenUpdating = True
    End With
End Sub