How do I save the worksheet into a new workbook with the file name referencing from Sheet1 C3 via VBA?

[Starkers]

How do I save the worksheet into a new workbook with the file name referencing from Sheet1 C3?

Currently this is the vba code that I am using right now.

Sub Billing_Milestone()

Worksheets("Billing Milestone").Copy
    With ActiveWorkbook
       .SaveAs Filename:= "C:\Users\Desktop" & "Billing Milestone", FileFormat:=xlOpenXMLWorkbook
        .Close savechanges:=False
    End With
End Sub

 

[Fluff]

Do you want to use C3 in the Billing Milestones sheet, for the file name?

 

[Starkers]

How do I save the worksheet into a new workbook with the file name referencing from Sheet1 C3?

Currently this is the vba code that I am using right now.

Sub Billing_Milestone()

Worksheets("Billing Milestone").Copy
    With ActiveWorkbook
       .SaveAs Filename:= "C:\Users\Desktop" & "Billing Milestone", FileFormat:=xlOpenXMLWorkbook
        .Close savechanges:=False
    End With
End Sub

Do you want to use C3 in the Billing Milestones sheet, for the file name?

The filename should be values in C3 (from Sheet1) & “Billing Milestone”

 

[Fluff]

Ok, how about

Sub Billing_Milestone()
   Dim Fname As String
   Fname = Sheets("Sheet1").Range("C3").Text
Worksheets("Billing Milestone").Copy
    With ActiveWorkbook
       .SaveAs Filename:="C:\Users\Desktop\" & Fname & " Billing Milestone", FileFormat:=xlOpenXMLWorkbook
        .Close savechanges:=False
    End With
End Sub

 

[Starkers]

Ok, how about

Sub Billing_Milestone()
   Dim Fname As String
   Fname = Sheets("Sheet1").Range("C3").Text
Worksheets("Billing Milestone").Copy
    With ActiveWorkbook
       .SaveAs Filename:="C:\Users\Desktop\" & Fname & " Billing Milestone", FileFormat:=xlOpenXMLWorkbook
        .Close savechanges:=False
    End With
End Sub

Wow, it works. This is nice, thanks for the assist!

 

[Fluff]

You're welcome & thanks for the feedback.