How to extract Strings exactly Match with desired String in Excel with VBA Macro

VBA Macro to extract Strings exactly Match with desired String in Excel

Sub Serch_Extract()

Dim x As Integer

Dim Y As Integer

Dim Z As Integer

Dim b As Integer

Dim a As String

Dim d As String

b = 1

On Error GoTo Label:

d = InputBox("Enter Your Name: ")

a = InputBox("Hai" & " " & d & " " & "Enter Your Search Sring :")

Y = InputBox("Enter Search Colno :")

Z = InputBox("Enter Search Results Colno :")

Cells(1, Z) = " SEARCH RESULTS"

Cells(1, Z).Font.Bold = True

For x = 1 To 100

If Mid(LCase(Cells(x, Y)), 1, Len(a)) = LCase(a) And Len(LCase(Cells(x, Y))) = Len(a) Then

b = b + 1

Cells(b, Z) = Cells(x, Y)

End If

Next x

Label:

End Sub

Thanks,Tamatam