Modifying existing code to save worksheet

I am currently using the below code to save a workbook to a designated folder, how can I modify this to save one particular sheet rather than the whole workbook? It would be sheet(3) that needs saving to the same folder.

Sub SaveIt()
Dim FP As String, dt As String, wbNam As String

FP = "C:\Test\"
wbNam = Range("j1").Value
dt = Format(CStr(Now), "_hhmm_dd_mm_yyyy")
ActiveWorkbook.SaveAs Filename:=FP & wbNam & dt & ".xlsm"
End Sub

Thanks, works perfectly.

Now what if I wanted to copy two seperate sheets to two different folders? Would i just replicate the code but insert

Sheets("Sheet2").Select

and also change

FP = "C:\Test\" so it now reads FP="C:\Saved\"

Actually, think I have it sorted.

Sub twosheetsave()
Dim FP As String, dt As String, wbNam As String

FP = "C:\Test\"
wbNam = Range("d1").Value
dt = Format(CStr(Now), "_hhmm_dd_mm_yyyy")

ThisWorkbook.Sheets(3).Copy

With ActiveWorkbook
    .SaveAs Filename:=FP & wbNam & dt & ".xls"

 End With
 
FP = "C:\Saved\"
wbNam = Range("j1").Value
dt = Format(CStr(Now), "_hhmm_dd_mm_yyyy")

ThisWorkbook.Sheets(2).Copy

With ActiveWorkbook
    .SaveAs Filename:=FP & wbNam & dt & ".xls"
    .Close True
    
End With

End Sub

Or is there a more efficient way to do this?

That's great, it works perfectly.

Have one last issue though. When I delete the data from the original workbook the info is also deleted from the newly saved sheet 3. How can I save the sheet with values only, not the formula that are linking back to the original wb?

How can I now modify this code to now save to two additional folders on a separate drive? So essentially will save to C:\Test\, C:\Saved\ and also to H:\Test\, H:\Saved\. I thought it would simply be a case of inserting the additional locations into the line:

HTML Code: 

so it reads:

HTML Code: 

But this doesn't save to the new locations, only the two first ones.