"Type Mismatch" Driving me crazy

So, the "Type Mismatch" error pops up every time I press "Enter". I have no idea what's causing it. There are no consequences when I ignore it. I press "Enter" I get "Type Mismatch", I press "Okay", and then go about my business until I press "Enter again".

Explain like I'm five.

I'm not sure where the error is coming from, there are 12 modules. Is there no way to search for what's causing it? My BEST guess as to where it might be is here:

Public Function TabOrder() As Range
    Set TabOrder = [AE5,AJ5,G10,G12,G14,G20,H26,AH10,AH12,AH14,AL16,AH18,AH20,H26,Z26,AK26,AA28,F32,M32,AA32,AJ32,U34,AF36,f45,r41,af41,r43,af43,r45,af45,r48,af48,f60,i60,l60,o60,r60,u60,x60,k63,aa63]
End Function

Private Sub CheckBox1_Click()

End Sub

Private Sub ScrollBar1_Change()
Call AdjustMax
End Sub

Private Sub ScrollBar1_GotFocus()
Call AdjustMax
End Sub

Private Sub ScrollBar1_Scroll()
Call AdjustMax
End Sub

Private Sub SpinButton1_Change()

End Sub

Private Sub Worksheet_Calculate()
If Range("ak26").Value > Range("br14").Value Then GoTo box1 Else GoTo end1
box1:
MsgBox ("Space count Greater than Meter Inventory")
Range("ak26").Value = ""





end1:
End Sub

I'm not sure where the error is coming from, there are 12 modules. Is there no way to search for what's causing it? My BEST guess as to where it might be is here:

Public Function TabOrder() As Range
    Set TabOrder = [AE5,AJ5,G10,G12,G14,G20,H26,AH10,AH12,AH14,AL16,AH18,AH20,H26,Z26,AK26,AA28,F32,M32,AA32,AJ32,U34,AF36,f45,r41,af41,r43,af43,r45,af45,r48,af48,f60,i60,l60,o60,r60,u60,x60,k63,aa63]
End Function

Private Sub CheckBox1_Click()

End Sub

Private Sub ScrollBar1_Change()
Call AdjustMax
End Sub

Private Sub ScrollBar1_GotFocus()
Call AdjustMax
End Sub

Private Sub ScrollBar1_Scroll()
Call AdjustMax
End Sub

Private Sub SpinButton1_Change()

End Sub

Private Sub Worksheet_Calculate()
If Range("ak26").Value > Range("br14").Value Then GoTo box1 Else GoTo end1
box1:
MsgBox ("Space count Greater than Meter Inventory")
Range("ak26").Value = ""

end1:
End Sub

I'm not sure where the error is coming from, there are 12 modules. Is there no way to search for what's causing it? My BEST guess as to where it might be is here:

Public Function TabOrder() As Range
    Set TabOrder = [AE5,AJ5,G10,G12,G14,G20,H26,AH10,AH12,AH14,AL16,AH18,AH20,H26,Z26,AK26,AA28,F32,M32,AA32,AJ32,U34,AF36,f45,r41,af41,r43,af43,r45,af45,r48,af48,f60,i60,l60,o60,r60,u60,x60,k63,aa63]
End Function

Private Sub CheckBox1_Click()

End Sub

Private Sub ScrollBar1_Change()
Call AdjustMax
End Sub

Private Sub ScrollBar1_GotFocus()
Call AdjustMax
End Sub

Private Sub ScrollBar1_Scroll()
Call AdjustMax
End Sub

Private Sub SpinButton1_Change()

End Sub

Private Sub Worksheet_Calculate()
If Range("ak26").Value > Range("br14").Value Then GoTo box1 Else GoTo end1
box1:
MsgBox ("Space count Greater than Meter Inventory")
Range("ak26").Value = ""





end1:
End Sub