Range.Find searches a range for a value and returns the first matching cell, or Nothing when there is no match. Faster than a loop and it mirrors the Find dialog.

Code

Set c = Range("A:A").Find("Total", LookAt:=xlWhole)
If Not c Is Nothing Then MsgBox c.Row

• Find a label

  Set c = Range("A:A").Find("Total", LookAt:=xlWhole) If Not c Is Nothing Then MsgBox c.Row → The row of the first exact "Total"

  Always test for Nothing.

• Explicit options

  Set c = rng.Find(What:="ACME", LookIn:=xlValues, MatchCase:=False) → Case-insensitive value search

  Specify LookIn and LookAt every time.

• All matches

  Set first = rng.Find("x") Set c = first Do Set c = rng.FindNext(c) Loop While Not c Is Nothing And c.Address <> first.Address → Loops through every match

  The FindNext pattern.

• Find remembers the last options used, even from the dialog, so set LookAt and LookIn explicitly.
• Application.Match is faster for exact lookups in one column.
• Search formulas with LookIn:=xlFormulas.

• Using c.Row without the Nothing test raises error 91.
• Find on merged cells behaves oddly.