Close open workboos with script

Try

 

    Dim stwb1 As String, wb2 As Workbook, stPathPlus As String
    stwb1 = ThisWorkbook.Name
    stPathPlus = Sheets("Sheet1").Range("C5") ' where "Sheet1" is the sheet TAB name and C5 contains a character string
    ActiveWorkbook.Save    
    ActiveWorkbook.SaveAs Filename:=stPathPlus
    Set wb2 = ThisWorkbook
    Workbooks.Open Filename:=stwb1
    wb2.Close