Sub test()
Dim x As Variant, Found As Range, LR As Long, i As Long
x = 1.234
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("A" & i)
If Round(.Value, 0) = Round(x, 0) Then
Set Found = .Offset(1)
Exit For
End If
End With
Next i
If Not Found Is Nothing Then MsgBox Found.Address
End Sub