Dim fileToSave As Variant
Dim xQuit As Boolean
back_name_z = Sheets("불확도추정").Range("B2").Text & Range("Z11").Text
fileToSave = Application.GetSaveAsFilename _
(InitialFileName:="\192.168.0.15성적서당월분" & back_name_b, filefilter:="엑셀문서(*.xls),*.xls," & "서식문서(*.xlt),*.xlt", Title:="성적서번호로 저장하기")
If fileToSave <> False Then
ActiveWorkbook.SaveAs Filename:=fileToSave
xQuit = MsgBox(fileToSave & "로 저장이 완료되었습니다.", vbYes, Title:="저장")