Macro to locate folder in a folder and save

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\st\Desktop\" & Sheets("Sheet1").Cells(5, 4) & ActiveWorkbook.Name
MsgBox "Saved"

Is correct..however add "ODF\" to the FILENAME:= line and a "\" before the activeworkbook.name

so you have

ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\st\Desktop\ODF\" & Sheets("Sheet1").Cells(5, 4) & "\" & ActiveWorkbook.Name
MsgBox "Saved"

This will then save in the ODF folder...and the folder identified by d5