' PointsUsed tab (on form)
Private Sub ComboClockuse_Change()
Dim lblemplnameUSE As String
Dim sheet As Worksheet
Set sheet = ActiveWorkbook.Sheets("Totals")
Dim Ret_Type As Integer
If Trim(Me.ComboClockUse.Value) = "" Then
  Me.ComboClockUse.SetFocus
  Exit Sub
  End If
 
'if vlookup encounters an error
On Error GoTo ErrHandler:
'Vlookup to find employee name
    Me.lblemplnameUSE = Application.WorksheetFunction.VLookup(ComboClockUse.Value, sheet.Range("EmpClock"), 2, False)
    Me.lblAvailPts = Application.WorksheetFunction.VLookup(ComboClockUse.Value, sheet.Range("AvailPts"), 11, False)
 
    Exit Sub
 
ErrHandler:
  Ret_Type = Msgbox("Clock Number not found.  Click OK to enter new employee", vbOKCancel, "Invalid Clock Number")
   ' if ok or cancel buttons are pressed
Select Case Ret_Type
Case 1 'ok
    Unload Me
        Copper_Crusaders_Points.Show
    MultiPage1.Value = 2
Case 2 'cancel
    Unload Me
        Copper_Crusaders_Points.Show
      MultiPage1.Value = 1
End Select
Exit sub
End Sub