VBA를 실행하면 다른 PC에서는 괜찮은데, 딱 한 PC에서만 400에러가 납니다.

안녕하세요, 고수님들^^

언제나 이곳에서 나름 열심히 공부하면서 이것 저것 회사 실무에 적용하고 있는 중입니다^^
항상 감사드리며, 아래 VBA로 "월별미수금.xlsm" 를 만들어 여러 PC에서 사용하고 있습니다.
그런데, 딱 한 PC에서만 400에러가 납니다.
왜 그럴까요?
엑셀을 지우고 새로 설치해 봤는데... 역시나 에러가 발생합니다.

실행순서는 ERP에서 "거래처별채권.xlsx" 엑셀을 다운받아 열고 미리 리본메뉴에 등록한 매크로 버튼을 실행하면

바로 400에러 뜹니다. 그런데 월별미수금.xlsm실행시키고

각각의 버튼(코딩)을 실행하면 아무런 이상없이 잘 작동합니다.
다른 PC에서는 아무런 에러없이 잘 작동합니다.
고수님들의 도움을 요청드립니다.

Sub 거래처별채권복사()

Dim wb As Workbook '파일
On Error Resume Next ' 에러검출 안함
Set wb = Workbooks("월별미수금.xlsm") ' 기존 오픈된 문서중에 해당 파일을 wb에 설정해서

If Err Then ' 에러가 나면 오픈되지 않은 상태 이므로
Dim sPath$
sPath = ThisWorkbook.Path & "\월별미수금.xlsm" ' 현재폴더의 파일 지정
If Dir(sPath) = Empty Then ' 파일이 있는지 검사해서 해당 파일이 없으면
MsgBox "파일을 찾을 수 없습니다...!" ' 메세지 출력후
Exit Sub ' 종료
Else ' 해당 파일이 있으면
Set wb = Workbooks.Open(sPath) ' 파일을 오픈해서 wb에 설정
ThisWorkbook.Activate ' 오픈된파일이 액티브 되므로 현재파일 액티브
End If
End If

On Error GoTo 0 ' 에러 검출 재게

Sheets("거래처별채권").Move Before:=wb.Sheets("sheet3") ' 시트복사
End Sub
Sub 보고서만들기()

Dim i As Integer
Dim endrow As Integer
Dim FindValue As Variant
Dim endcell As Integer

With ActiveSheet
.Name = Format(Date, "mm월dd일") & "_거래처별채권보고서"
End With

On Error Resume Next ' 에러검출 안함

ActiveSheet.Cells(1, 1).Select
ActiveSheet.Columns("A").Delete
ActiveSheet.Columns("B:E").Delete
ActiveSheet.Columns("C").Delete

ActiveSheet.Cells(1, 1).Value = "거래처별채권"

ActiveSheet.Cells(1, 1).Select
With Selection
.Interior.ColorIndex = 1 '제목칼라
.Font.Color = vbWhite '폰트칼라
.HorizontalAlignment = xlCenter
End With

'// 잔액이 0이하 행 삭제

endrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For i = endrow To 2 Step -1

If Cells(i, 2) <= 0 Then

ActiveSheet.Range("a" & i).Resize(, 2).Delete Shift:=xlUp

Else

End If
Next
'//잔액합계구하기
endcell = ActiveSheet.Cells(Rows.Count, "a").End(xlUp).Row
ActiveSheet.Cells(Rows.Count, 2).End(3).Value = Application.WorksheetFunction.Sum(Range("b3", "b" & endcell))

'//서식만들기
ActiveSheet.Range("C:C").ColumnWidth = 5
ActiveSheet.Range("D:D").ColumnWidth = 22
ActiveSheet.Range("E:E").ColumnWidth = 15

Range("A2:B2").Copy
Range("D2").Select
ActiveSheet.Paste

Range("A44 : B84").Cut
Range("D3").Select
ActiveSheet.Paste

Range("A44 : B84").EntireRow.Delete Shift:=xlUp

Range("A44").EntireRow.Insert Shift:=xlDown

Range("A2:E2").Copy
Range("A44").Select
ActiveSheet.Paste

Range("A87 : B129").Cut
Range("D45").Select
ActiveSheet.Paste

Range("A87 : B129").EntireRow.Delete Shift:=xlUp

'// 거래처미수금 인쇄셋팅()

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0) '◀왼쪽 여백
.RightMargin = Application.InchesToPoints(0) '◀오른쪽 여백
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsDisplayed
End With

Range("A1").Select

Range("D1:E1").Select '날짜 설정와 타이틀 설정
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge

ActiveCell.FormulaR1C1 = Format(Now, "yyyy" & "년" & "mm" & "월" & "dd" & "일") '타이틀제목

End Sub
Sub 출력물만들기()

Dim i As Integer
Dim endrow As Long

On Error Resume Next ' 에러검출 안함

endrow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row

ActiveSheet.Rows(endrow + 3).Delete
ActiveSheet.Rows(endrow + 2).Delete
ActiveSheet.Rows(endrow + 1).Delete

ActiveSheet.Rows(1).Delete
ActiveSheet.Columns("A:B").Delete
ActiveSheet.Columns("E:F").Delete
ActiveSheet.Columns("F:G").Delete
' ActiveSheet.Columns("E:F").Delete

endrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For i = endrow To 2 Step -1
If Cells(i, 4) = "" And Cells(i, 6) = "" Then
Rows(i).Delete
Else
End If
Next

endrow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For i = endrow To 2 Step -1
If Cells(i, 4) = "" And Cells(i, 5) = "" Then
Rows(i).Delete
Else
End If
Next

ActiveSheet.Range("E1") = "현금"

With ActiveSheet
.Name = Format(Date, "mm월dd일") & "_일일거래처별채권"
End With
'ActiveWorkbook.Close
End Sub