Sort of. Yes that will work for 1 2 and 3. but I wanted it input to a cell named "AdminUnit", such that if the cell contained a 1, only entries from

Left(Cells(x, 4), 1) = UN starting with a 1 would show, same for 2 and 3. but if cell "AdminUnit" contained a 0, then Left(Cells(x, 4), 1) = UN would show for 1 2 and 3.

I stepped the process, probably not effitient but it works:

Sub SearchENC() ' Entries Not Completed

NN = Range("NextTN").Value

AT = Range("AdminType").Text

UN = Range("AdminUnit").Text

z = 2

If UN = 0 Then

'Unit ALL, Type ALL

If AT = "All" Then

For x = 1 To NN

If Cells(x, 8) = "" Then

For y = 1 To 9

Cells(z, y + 26) = Cells(x, y)

Next y

z = z + 1

End If

Next x

Exit Sub

End If

'Unit ALL, Type choosen

For x = 1 To NN

If Cells(x, 8) = "" And Cells(x, 5) = AT Then

For y = 1 To 9

Cells(z, y + 26) = Cells(x, y)

Next y

z = z + 1

End If

Next x

Exit Sub

End If

'Unit choosen, type ALL

If AT = "All" Then

For x = 1 To NN

If Cells(x, 8) = "" And Left(Cells(x, 4), 1) = UN Then

For y = 1 To 9

Cells(z, y + 26) = Cells(x, y)

Next y

z = z + 1

End If

Next x

Exit Sub

End If

'Unit choosen, type choosen

For x = 1 To NN

If Cells(x, 8) = "" And Cells(x, 5) = AT And Left(Cells(x, 4), 1) = UN Then

For y = 1 To 9

Cells(z, y + 26) = Cells(x, y)

Next y

z = z + 1

End If

Next x

End Sub

Thanks, Chas

I was trying to figure a way to say

if range("AdminUnit") = 0 then

UN = wildcard ' accepts 123

else

UN = range("AdminUnit").text

end if