Put this macro in the codemodule of sheet2 ("save")
Assign this macro to the 'Drop Down 6' formcontrol.
Sub M_snb()
ThisWorkbook.SaveCopyAs "U:\clients\client " & [b4] & "\client " & [b4] & " Form " & Format(Date, "mm-dd-yyyy") & ".xlsm"
End Sub
If you want to check/create the folder the file has to be stored in:
Sub M_snb()
If Dir("U:\clients\client " & [b4]) = "" Then CreateObject("shell.application").Namespace("U:").NewFolder "clients\client " & [b4]
ThisWorkbook.SaveCopyAs "U:\clients\client " & [b4] & "\client " & [b4] & " Form " & Format(Date, "mm-dd-yyyy") & ".xlsm"
End Sub