Hi tifanide,

If you want the user to continue working in the newly-saved workbook, you could use:
ActiveWorkbook.SaveAs Filename:="C:\" & Range("B2").Value & ".xls", FileFormat:=56

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]