코딩 엑셀 파일을 다른 이름의 파일로 저장하기

[희망]

안녕하십니까?

제가 코딩한 것을 올립니다.

Private Sub mnuXLS데이터시트_저장_Click()
On Error GoTo Err_rtn
Call 데이터포멧쓰기
Str(7) = Application.SaveAsFilename("Data", fileFilter:="엑셀 파일 (*.xls),*.xls")

If Str(7) = False Then
MsgBox "파일이 선택되지 않았습니다", vbOKOnly + vbExclamation, "파일 불러내기"
Exit Sub
End If

Select Case Application.Version
Case "9.0", "10.0", "11.0": WB(1).SaveAs FileName:=Str(7), FileFormat:=xlNormal
Case "12.0", "13.0", "14.0": WB(1).SaveAs FileName:=Str(7), FileFormat:=xlExcel8
End Select

WB(1).Saved = True
WB(1).Close
Exit Sub
Err_rtn:
MsgBox Err.Description
WB(1).Saved = True
WB(1).Close
End Sub

----------------------

위의 코딩,

Str(7) = Application.SaveAsFilename("Data", fileFilter:="엑셀 파일 (*.xls),*.xls")
비베에서는 메소드가 없다고 나옵니다.

어떻게 하면 되겠는지요?

감사합니다.