Macro to paste values to new workbook

[Billiam75]

Hello,

I'm not sure of the correct terminology for what I'm looking for.

I have this macro:

Sub SaveScheduleForm()
'Saves filename
Dim newFile As String, fName As String, fName2 As String
' Don't use "/" in date, invalid syntax
FPath = "H:\Schedules"
fName = Range("Sheet2!B1")
fName2 = Range("Sheet2!B3")
'Change the date format to whatever you'd like, but make sure it's in quotes
newFile = fName & " - " & fName2
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=FPath & "\" & newFile
End Sub

It works great for what I need it to do, but the sheet has a lot of formulas in it that I then have to copy and paste values over.

Is there a way for it to just copy the values of the active sheet to the new file?

 

[rlv01]

See if this works for you.

Sub SaveScheduleForm()
    'Saves filename
    Dim newFile As String, fName As String, fName2 As String, FPath As String
    
    ' Don't use "/" in date, invalid syntax
    FPath = "H:\Schedules"
    fName = Range("Sheet2!B1")
    fName2 = Range("Sheet2!B3")

    'Change the date format to whatever you'd like, but make sure it's in quotes
    newFile = fName & " - " & fName2
    ActiveSheet.Copy                                                'copy worksheet to new workbook
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value       'convert formulas to value in the new workbook
    ActiveWorkbook.SaveAs Filename:=FPath & "\" & newFile           'save new file
    ActiveWorkbook.Close False                                      'close new file
End Sub

 

[Billiam75]

Perfect!! Thank you so much!!