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