엑셀2007, 멀티페이지에 있는 오름차순,내림차순 옵션버튼 코드가 자꾸 오류나요ㅠㅠ

[kihoha]

수강생관리하는 것을 엑셀VBA로 멀티폼 만들고 코드 설정해서 만들고 있습니다.

초짜인데 무조건 따라하는 책을 보고 적용시켜 만든 거라서.......오류가 많습니다.

그래서 실행되는 걸 아직 못봐서 넘넘 아쉽습니다.

업체, 수강생, 강사 등 폼에서 페이지가 여러개 있습니다.

페이지마다 리스트박스가 있구요.

그 리스트박스 내용을 오름차순,내림차순으로 정렬하려고 옵션버튼을 다 만들었습니다. 그리고는 아래와 같이 코드를 설정했습니다.

그런데 자꾸 오류가 납니다ㅠㅠ

Private Sub opt3_Click()
Call subsort(1)
End Sub

Private Sub opt4_click()
Call subsort(2)
End Sub

Sub subsort(isorttype As Byte)
Set rngdata = Range(Sheets("교육명").[a1]. _
Sheets("교육명").[a1].End(xlToRight).End(xlDown))
rngdata.Sort key1 = Sheets("교육명").[b2], order1:=isorttype, Header:=xlYes

End Sub

Private Sub opt5_Click()
Call subsort(1)
End Sub

Private Sub opt6_click()
Call subsort(2)
End Sub

Sub subsort(isorttype As Byte)-------------------------------------------------------컴파일 오류입니다.
Set rngdata = Range(Sheets("업체").[a1]. _                                                               이름이 분명하지 않습니다:subsort
Sheets("업체").[a1].End(xlToRight).End(xlDown))
rngdata.Sort key1 = Sheets("업체").[b2], order1:=isorttype, Header:=xlYes

End Sub

Private Sub opt7_Click()
Call subsort(1)
End Sub

Private Sub opt8_click()
Call subsort(2)
End Sub

Sub subsort(isorttype As Byte)
Set rngdata = Range(Sheets("수강생").[a1]. _
Sheets("수강생").[a1].End(xlToRight).End(xlDown))
rngdata.Sort key1 = Sheets("수강생").[b2], order1:=isorttype, Header:=xlYes

End Sub

Private Sub opt1_Click()
Call subsort(1)
End Sub

Private Sub opt2_click()
Call subsort(2)
End Sub

Sub subsort(isorttype As Byte)
Set rngdata = Range(Sheets("강사").[a1]. _
Sheets("강사").[a1].End(xlToRight).End(xlDown))
rngdata.Sort key1 = Sheets("강사").[b2], order1:=isorttype, Header:=xlYes

End Sub

어떻게 고쳐야하나요????????????????????????????????????????????지발 좀 가르쳐주세요.

우선 이 문제를 해결해야 다음 문제를 볼 수 있을 것 같아요...;;