Change the declarations section to:

#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare PtrSafe Function Beep Lib "kernel32" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function Beep Lib "kernel32" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If
Private ieBrowser As InternetExplorer

Note that the compiler will still highlight the bottom half in red but you can ignore that.

Thank you very much; your support is greatly appreciated.

I face other issue, can you check why I face "Timeout" status in column D

The target from this macro is open the URL "column B" then get the word from column C, and see if it is found in this URL or not then write the result in Column D.

Thanks;

Ehab

I'd guess it's taking longer than the 30s you specified for a timeout. I get Found when I run it.

Grateful for your support..