Help for this page

Select Code to Download

Select or download this

use strict;
use Win32::OLE;

...
        }
    }
}

Select or download this
Set Loc = ThisWorkBook.Sheets(n).UsedRange.Cells.Find(What:="cabbage")