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