(초보입니다 도와주세요ㅠ) 컴파일 오류입니다.외부 프로시저가 잘못되었습니다

"가능리스트" 시트
A3:G22 데이터를 "호남영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A25:G44 데이터를 "대구영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A47:G66 데이터를 "부산영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A69:G88 데이터를 "중부영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A91:G110 데이터를 "강원영업소" 시트 A5:G24 와 A32:G51 로 복사

"가능리스트" 시트
A113:G132 데이터를 "제주영업소" 시트 A5:G24 와 A32:G51 로 복사

하는 코드 와

엑셀시작할때 자동으로 매크로 실행되고 "가능리스트" 데이터를 실시간으로 변경해도 적용되게 하는 코드

VBA
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:01"), "CopyData"
End Sub

Sub CopyData()
Dim wsPossibleList As Worksheet
Dim wsHONAM As Worksheet, wsDAEGU As Worksheet, wsBUSAN As Worksheet, wsCHUNGBU As Worksheet, wsGANGWON As Worksheet, wsJEJU As Worksheet

Set wsPossibleList = ThisWorkbook.Sheets("가능리스트")
Set wsHONAM = ThisWorkbook.Sheets("호남영업소")
Set wsDAEGU = ThisWorkbook.Sheets("대구영업소")
Set wsBUSAN = ThisWorkbook.Sheets("부산영업소")
Set wsCHUNGBU = ThisWorkbook.Sheets("중부영업소")
Set wsGANGWON = ThisWorkbook.Sheets("강원영업소")
Set wsJEJU = ThisWorkbook.Sheets("제주영업소")

' Copy data from PossibleList to HONAM
wsHONAM.Range("A5:G24").Value = wsPossibleList.Range("A3:G22").Value
wsHONAM.Range("A32:G51").Value = wsPossibleList.Range("A25:G44").Value

' Repeat the same for other regions

End Sub

이렇게 했는데

컴파일 오류입니다.외부 프로시저가 잘못되었습니다 라는 오류창뜹니다... 모가 잘못된걸까요..ㅠ_ㅠ