VBA:
GID = 65
Set F = Columns(6).Find(GID, LookIn:=xlValues, LookAt:=xlWhole)
If Not F Is Nothing Then
    Eilute = F.Row
End If
Set F = Nothing

Jei stulpelis Hidden neranda...:(