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