You didn't say where the date range was...I'll assume it's column B.Using Excel 2010 Home Edition:
I need to Search Column A for specific "Text" and then add the number value that is attached in column E. All this needs to be done within a Specific date range.
Love this forum, You guys are awesome.
Thanx
[/FONT]
[FONT=Courier New]Sub tryMe()
Dim foundtext As Range
Dim x As String[/FONT]
[FONT=Courier New]x = InputBox("Please input the search number...", "", "")
Set foundtext = Range("A1:A10").Find(What:=x, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole)
If foundtext Is Nothing Then
MsgBox "Nothing found"
Else
MsgBox foundtext + Cells(Selection.Row, "E")
End If
End Sub