Hi EMoe!

Use the Format function to coerce values to the format you need like this (replace my format to what you want it to look like):

ActiveWorkbook.SaveAs Format(Range("B1"), "yyyy_mm_dd")

Hope this helps,
theDude