Please Answer ASAP!! ONLY Questions $4-6,$ I have provided my excel VBA Macro Code but it does not show the highlights of the corresponding cell. Thank you in advance!!

Sub FindItems $()$

$|$

Dim searchValue As Variant

Dim cell As Range

searchValue $=$ InputBox $("$Please Enter An Item $)$

If searchValue $=$ Or Not IsNumeric $($searchValue$)$ Then

MsgBox "Please enter a valid Item#$"$

Exit Sub

End If

Range $(D$:$D).$ Interior, ColorIndex $=x1$ None

For Each cell In Range $("$D$1$:D$"$ & Cells $($Rows$.$Count, $"$D$").$ End $($x$1$Up$).$ Row$)$ If cell. Value $=$ searchValue Then

cel$1.$ Interior, Color $=$ vbYellow

End If

Next cell

Range $("$A$1").$ Select

MsgBox "Search complete. Item# $"$ searchValue & $"$ found."

End Sub