Filtering data using macro

[ramkumarcn]

I have a range of data in a workbook. I have recorded the macro to filter a value called "report" from a column. It works, but there are chances that this value "report" may not exist. So if macro finds that particular value, it should display a msg saying "data found" else "not found". could you please help me with the code?

 

[jim may]

Paste into a Standard Module and then Run

Sub Get_AF_Range()
RowNum = ActiveSheet.AutoFilter.Range(1).Row
ColNum = ActiveSheet.AutoFilter.Range(1).Column
ColCnt = ActiveSheet.AutoFilter.Range.Columns.Count
Set Rng = Range(Cells(RowNum, ColNum), Cells(RowNum, ColNum + ColCnt - 1))
For Each c In Rng.Cells
If c = "Report" Then
Flag = True
End If
Next c
If Flag Then
MsgBox "Data Found"
Else
MsgBox "Not Found"
End If
End Sub