Modify Excel Code to split multiple worksheets to file and save it in seperate location

Hi All

I have this code which splits the multiple excel worksheets into individual excel file and saves it all in same location as active workbook.
Each Excel file is named after the sheet name.
I basically have 5 sheets say MODELA, MODELB, MODELC, MODELD,and MODELE.
What i want is,to save all this 5 excel files in 5 difrnt location which i will specify in code and not as done here in activeworkbook.

Sub NewWBS()
Dim wbNew As Workbook
Dim ws As Worksheet

     For Each ws In ThisWorkbook.Worksheets
            ws.Copy
            Set wbNew = ActiveWorkbook
            wbNew.SaveAs ThisWorkbook.Path & "\" & ws.Name
            wbNew.Close
     Next ws
End Sub

Any help would considerably reduce the time of my team
Thanks in advance