Find value in sheets is not working as expected

[tiagom]

I wrote this snippet of VBA code:

Please Login or Register  to view this content.

Aim: is to find the value "Weather" in the CurrentRegion around "A1", and if cell offset(0,1) to the "weather" cell address is empty, variable w is "No"; otherwise, variable w is "yes", and pop message box as described in the code.
Issue: Code is finding value "Weather" in cell $H$13 (active cell with green frame) where apparently there is no such value, nor even hidden. (please see screenshot below with message box with: activecell address ($H$13), offset cell value (" ") and value to be found ("Weather"))error.png
Question: Why is the function Find working like this? And how to correct that?

Thank you very much in advance.

Tiago

[Marc L]

If the code is located in a standard module, Cells.Find means a search on the active worksheet …

Just well read the VBA help of With … End With block statement and its sample.

[jolivanes]

I don't know if I understand you right but if I do, this might be a start.

Please Login or Register  to view this content.

[tiagom]

Thank you jolivanes, your script worked.

[jolivanes]

Thank you for letting us know.
Good luck