파일선택 매크로에서 파일 미선택시 디버그 해결문제

파일 열기 후 시트 가져오기에서 파일선택창을 닫으면

For i = 1 To UBound(Files)

에서 디버그가 발생하는 데, 디버그 없이 정상 종료되게 조건을 걸 수 있을까요?

Sub 파일열기(Optional Title As String = "파일을 선택하세요", Optional FilterName As String = "엑셀파일", _
Optional FilterExt As String = "*.xls; *.xlsx; *.xlsm", Optional InitialFolder As String = "", _
Optional InitialView As MsoFileDialogView = msoFileDialogViewList, Optional MultiSelection As Boolean = True, Optional PathDelimiter As String = "|", _
Optional withPath As Boolean = True, Optional withExt As Boolean = True)
'
' 다른파일열기 매크로
'
Dim Fname As String '열은 파일의 이름을 넣을 변수
Dim intNo As Integer '복사할 파일의 시트번호를 넣을 변수

intNo = 1 '선택한 파일의 1번 시트를 가져옴. 원하는 시트번호로 바꾸면 됨.

Fname = Application.GetOpenFilename("Excel Files" & _
"(*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm", , "선택파일 불러오기") '복사할 원본파일 선택
If Fname = "False" Then Exit Sub '취소를 누르면 중단

Workbooks.Open FileName:=Fname '선택한 파일을 열고

If intNo > Sheets.Count Then '만약 입력한 숫자가 시트 개수보다 크면
MsgBox intNo & "번 시트가 존재하지 않음" '메시지 표시하고
Exit Sub '매크로 중단
End If

End Sub

Sub file_name()

Dim Fname As String

Set T_ws = ActiveSheet
Set T_wb = ThisWorkbook

k = 1

Files = Application.GetOpenFilename(MultiSelect:=True)

For i = 1 To UBound(Files)

Set file = Workbooks.Open(FileName:=Files(i))

For j = 1 To file.Worksheets.Count
Set shC = file.Sheets(k)
shC.Copy After:=T_wb.Worksheets("양식")
k = k + 1
Next j

file.Close

Next i
End Sub