Hello
i have a workbook with multiple sheets. On another workbook I have a search function.
when i do a search from this workbook it highlights the result in red in the workbook with mutiple sheets.
i am hoping after searching that the resultant cell will flash red three times at intervals of 2 seconds and then the red color disappears. Is there a way to modify the code i am using so this can happen? The VBA code i am using is as follows
Sub FindMe()
Dim MySearch As Variant
MySearch = InputBox("Please enter a value below, and hit OK to search", _
"What are you looking for?")
Workbooks("brutus.xlsm").Activate
Range("A1").Select
For x = 1 To Sheets.Count
On Error Resume Next
Sheets(x).Select
Cells.Find(What:=MySearch, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If InStr(1, ActiveCell.Value, MySearch, vbTextCompare) Then
ActiveCell.Interior.Color = vbRed
End
End If
Next x
MsgBox "Sorry " & MySearch & " was not found in any sheet", vbOKOnly, "No Match!"
End Sub
Thanks for any assistance