Find Method Example

This example finds all occurrences of the number “3” in the range A1:F10 and makes those cells bold.

Set c = Spreadsheet1.Constants
Set findRange = Spreadsheet1.Range("a1:f10")
Set foundCell = findRange.Find(3, Spreadsheet1.Range("a1"), c.ssValues, c.ssWhole)
Do While Not foundCell Is Nothing
    foundCell.Font.Bold = True
    Set foundCell = findRange.Find(3, foundCell)
Loop