VBA code to move workbooks to another folder based on workbook name

[MissaLissa]

I have approx 30 workbooks that I need to move to different folders based on the workbook name. The folders that these files are being moved to already exist. I have some code but it only moves one file, I need help moving them all.

Move LTCi_Operations.xlsx to folder named IAS Operations
Move AS_Operations.xlsx to folder named AS Operations
Move Assessment_Services.xlsx to folder named Assessment Services
Etc...

Sub Move_Final_Reports()
    sSaveFrom = "D:\Final Reports\"  
    sSaveTo = "D:\Final Reports\LTCi\IAS Operations\"   
    sFile = "*LTCi_Operations*.xl*"   
    
    Set FSO = CreateObject("scripting.filesystemobject")
    
    FSO.MoveFile Source:=sSaveFrom & sFile, Destination:=sSaveTo

End Sub

 

[MissaLissa]

Sorry, the above code was the wrong... Here is the code that is working to move one file... how do add more files to this code?

Sub Move_Final_Reports()    sSaveFrom = "[URL="file://\\ltcgsrv1\CognosExpress\Final"]\\ltcgsrv1\CognosExpress\Final[/URL] Reports\"
    sSaveTo = "[URL="file://\\ltcgsrv1\CognosExpress\Final"]\\ltcgsrv1\CognosExpress\Final[/URL] Reports\LTCi\IAS Operations\"
    sFile = "*LTCi_Operations*.xl*"
    
    Set FSO = CreateObject("scripting.filesystemobject")
    
    FSO.MoveFile Source:=sSaveFrom & sFile, Destination:=sSaveTo
    
End Sub