Modifying existing code to save worksheet

Or

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

For Each a In Array(3, 2)
    x = x + 1
    FP = Application.Index(Array("C:\Test\", "C:\Saved\"), x)
    ThisWorkbook.Sheets(a).Copy
    wbNam = Range("j1").Value
    dt = Format(CStr(Now), "_hhmm_dd_mm_yyyy")
    With ActiveWorkbook
        .SaveAs Filename:=FP & wbNam & dt & ".xls"
        .Close True
    End With
Next a

End Sub