Sub Find_Me()
'Modified 8/7/2018 10:30:37 PM EDT
Application.ScreenUpdating = False
Dim r As Range
Dim aaa As String
Dim anss As String
Dim Lastrow As Long
Dim SearchValue As String
Lastrow = Cells(Rows.Count, "C").End(xlUp).Row
SearchValue = InputBox("Enter search for value")
For Each r In Sheets("Sheet1").Range("C1:C" & Lastrow)
If r.Value = SearchValue Then ans = ans & " " & r.Address & vbNewLine
Next
If ans = "" Then MsgBox "Value " & SearchValue & " Not Found": Exit Sub
anss = "The value " & SearchValue & " found here"
aaa = Replace(ans, "$", "")
MsgBox anss & vbNewLine & aaa
Application.ScreenUpdating = True
End Sub