Hi Greg,
See image here of error:
Capture.jpg
Here is the full code:
Does this help ?
Private Sub TB3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Const strWorkbook As String = "C:\Users\billy\Desktop\GEA.JOBBOARD.xlsm"
Const strSheet As String = "ProjectRegister"
Dim arr() As Variant
Dim i As Long
Dim sRequired As String 'Column E Project Description
Dim SRequired2 As String 'Column F Address
Dim SRequired3 As String 'Column G Suburb
Dim SRequired4 As String 'Column J Client on Report
Dim SRequired5 As String 'Column K Client on Report
Dim sFind As String
arr = xlFillArray(strWorkbook, strSheet)
For i = 0 To UBound(arr, 2)
sFind = arr(2, i) 'Column C
sRequired = arr(4, i) 'Column E
SRequired2 = arr(5, i) 'Column F
SRequired3 = arr(6, i) 'Column G
SRequired4 = arr(9, i) 'Column J
SRequired5 = arr(10, i) 'Column K This line returns the error (it says that arr(10,i) = null) the value in Ki is an email address. I've changed it to just a number to test it as well?
If sFind = TB3.Text Then
TB1.Text = SRequired4
TextBox5.Text = SRequired2 & ", " & SRequired3
TextBox4.Text = sRequired
TextBox1.Text = SRequired5
Exit For
Else
TB1.Text = "Not Found"
End If
Next i
lbl_Exit:
Exit Sub
End Sub