Sub Zaznacz(co As Variant)
  Dim oCell As Range

  Set oCell = Cells.Find(co)
  If Not oCell Is Nothing Then
    Intersect(oCell.EntireRow, oCell.CurrentRegion).Select
    oCell.Activate
  End If

End Sub

Sub Zaznacz(co As Variant)

Dim oCell As Range
Set oCell = Cells.Find(co)
If oCell Is Nothing Then Exit Sub
oCell.Parent.Rows(oCell.Row).Select
Set oCell = Nothing

End Sub


Sub ewgrb()
  Zaznacz "ala ma kota"
End Sub