Application.GetOpenFilename에서 왜 에러가 나는지요?

아래에서
Application.GetOpenFilename
항목에서 에러가 나는군요. ‘438’
왜 그러는지 알려 주셨으면 합니다.(조치법)

같은 경우 엑셀에서는 잘 되는데..
라이브러리 참조는 시킬 만한건 다 했는데…
특별히 무엇을 더 추가해야 할지도 모르겠고….

Sub cPlot()
   
    Dim strFile As String
    Dim count As Integer
    Dim vFiles As Variant
    Dim i As Integer

  
     vFiles = Application.GetOpenFilename(filefilter:=”캐드화일,*.dwg”, Title:=”파일선택”, MultiSelect:=True)
   
    AcadApplication.Documents.Add (“acad.dwt”)
   
   
   
     count = 0
     For i = 1 To UBound(vFiles)
     strFile = vFiles(i)
         
        ThisDrawing.Application.Documents.Open (strFile)
        ‘Set acadDoc = Acad.Document.Open(File_name)

‘출력장치 설정
ThisDrawing.ActiveLayout.ConfigName = “RICOH Aficio 2022 RPCS”
‘스타일테이블 설정
ThisDrawing.ActiveLayout.StyleSheet = “MONOCROM.ctb”

‘용지설정
ThisDrawing.ActiveLayout.CanonicalMediaName = “A3”

‘출력영역  설정
ThisDrawing.ActiveLayout.PlotType = acWindow

‘중앙에 출력 옵션 설정
ThisDrawing.ActiveLayout.CenterPlot = True

‘출력매수를 1매로 설정
ThisDrawing.ActiveLayout.NumberOfCopies = 1

        ThisDrawing.PurgeAll
        ThisDrawing.Save
        ThisDrawing.Close
        count = count + 1
   
   
Next i

    MsgBox (count & ” 개의 도면 변환을 완료하였습니다.”)

End Sub