Saving in a new working book VBA

[Minato5972]

Sub Saving(ws As Worksheet)


Dim dt As String
Dim wbNam As String
Dim sFileSaveName As Variant

wbNam = "Salesforecast_"
dt = Format(CStr(Now), "dd_mm_yyy_hh_mm_ss")



sFileSaveName = Application.GetSaveAsFilename(InitialFileName:=wbNam & dt, fileFilter:="Excel Files (*.xlsm), *.xlsm")

If sFileSaveName <> False Then
ActiveWorkbook.SaveAs sFileSaveName
End If


End Sub


Above code is doing the job but i want only one particular sheet named "Forecast" from it, but it is saving all the sheets present in my current workbook

 

[Minato5972]

Works like a charm thank you so much for your instant help ?