If (Me.cboCo.Value) = ws.Cells(iRow, 1) Then
    Me.cboCat = ws.Cells(iRow, 19).Value
    Me.cboCat = ws.Cells(iRow, 19).Value
    Me.cboYrApprv = ws.Cells(iRow, 14).Value
    Me.txtContact = ws.Cells(iRow, 2).Value
    Me.txtPhone = ws.Cells(iRow, 3).Value
    Me.txtEmail = ws.Cells(iRow, 4).Value
    Me.txtCoAdd = ws.Cells(iRow, 5).Value
    Me.txtWebSite = ws.Cells(iRow, 6).Value
    Me.txtAccred = ws.Cells(iRow, 8).Value
    Me.txtStanding = ws.Cells(iRow, 9).Value
    Me.txtSince = ws.Cells(iRow, 10).Value
    Me.txtNotes = ws.Cells(iRow, 11).Value
    Me.txtVerified = ws.Cells(iRow, 12).Value
    Me.txtToday = ws.Cells(iRow, 13).Value
    Me.txtServProd = ws.Cells(iRow, 7).Value
    Me.txtApprvBy = ws.Cells(iRow, 15).Value
    Me.txtAprvReas = ws.Cells(iRow, 16).Value
    Me.txtOrder = ws.Cells(iRow, 17).Value
    Me.txtPurchs = ws.Cells(iRow, 18).Value
End If