Save to Folder Name based on cell value

[kclong]

In Excel 2007, how do I write a macro that will save to a specific folder based on a cell's value? For example, if I have folders Red, Blue, and White, and a cell where I input Blue, I want the macro to then save the file in the Blue folder. If I change the cell value to Red, the macro will then save to the Red folder, etc. Thanks

 

[JoeMo]

Try this revised code:

Sub SaveToFolder()
Dim fPath As String, foldName As Variant
Dim filName As String, fullPath As String
'your code here
'Ready to save
filName = ThisWorkbook.Name
fPath = ThisWorkbook.Path
foldName = Range("A1").Value   'Change range to suit
fullPath = fPath & Application.PathSeparator & foldName & Application.PathSeparator & filName
ThisWorkbook.SaveAs Filename:=fullPath
End Sub