Hi Greg,
Heres another solution.
What about changing my
lstLookup_DblClick to change or beforeupdate in order for Userform initialize to take control of the code below
'declare the variables
Dim ID As String
Dim i As Integer
Dim findvalue '
'error block
On Error GoTo errHandler:
'get the select value from the listbox
For i = 0 To lstLookup.ListCount - 1
If lstLookup.Selected(i) = True Then
'set the listbox column
ID = lstLookup.List(i, 6)
End If
Next i
'find the value in the range
Set findvalue = Sheet12.Range("L:L").Find(What:=ID, LookIn:=xlValues).Offset(0, -6)
'add the values to the userform controls
cNum = 6
For X = 1 To cNum
Me.Controls("Reg" & X).Value = findvalue
Set findvalue = findvalue.Offset(0, 1)
Next
'disable the controls to make the user select an option
'Me.cmdAdd.Enabled = False
'Me.cmdAdd.BackColor = RGB(220, 220, 220)
'Me.cmdEdit.Enabled = False
'Me.cmdEdit.BackColor = RGB(220, 220, 220)
'Me.optAdd = False
'error block
On Error GoTo 0
Exit Sub
errHandler::
MsgBox "An Error has Occurred " & vbCrLf & "The error number is: " _
& Err.Number & vbCrLf & Err.Description & vbCrLf & _
"Please notify the administrator"
End Sub