That is all the code for one whole sheet. My fault. I know the main part of interest is the following:
Private Sub Age_Click()
End Sub
Private Sub Age_DblClick(Cancel As Integer)
On Error GoTo Err_Age_Enter
Select Case Pass
Case DLookup("[Admin Password]", "[Company Info]")
If...