Macro to locate folder in a folder and save

hi guys im looking for some code to save to a destination

destination address is
C:\Documents and Settings\st\Desktop\OJF

now the problem is OJF has folders named 1 to 500

so if cell d5 = 487 it will need to look in the above desination and then open the folder and save it there

kind regards

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

I HAVE MANAGED TO GET IT TO SAVE ALMOST IN THE RIGHT FOLDER
ITS NOW SAVING TO C:\Documents and Settings\st\Desktop\OJF\

BUT ITS NOT OPENING THE FOLDER WITHIN THE ODF FOLDER IN THIS CASE
1

ITS ALSO SAVING AS
1Supply only trail
where as i want it to save in the right folder which is 1
but i also want it to save as "1 parking form"

recheck the formula I gave above...I updated it right as you posted...sorry.

You need the "\" before the actual activeworkbook name portion of the code.