とりあえず、これくらい試しましたか?
If SaveBookName <> "" Then
ex.ActiveWorkbook.SaveAs SaveBookName
Debug.Print SaveBookName
MsgBox SaveBookName
Else
MsgBox "保存するブック名をSaveBookNameプロパティで設定してください"
End If
通報 ...