Option Explicit

Public Sub Find6()

    Dim foundRange As Range
    With Worksheets(1).Rows(1)
        Set foundRange = .Find(6)
        If Not foundRange Is Nothing Then
            Debug.Print foundRange.Address
        End If
    End With

End Sub