Sub Найти_весь_столбец()
    With Sheets("номера")
        Dim cl As Range
        For Each cl In Intersect(.UsedRange, .Columns("K:K"))
            If Not IsEmpty(cl.Value) Then
                FindNumber cl.Value, cl.Cells(1, 3)
            End If
        Next
    End With
End Sub

Public Sub FindNumber(sNumb As String, rPrint As Range)
    Dim rf As Range
    On Error Resume Next
    Set rf = Sheets("адреса").Cells.Find(What:=sNumb, LookAt:=xlPart)
    On Error GoTo 0
    If rf Is Nothing Then
        rPrint.ClearContents
    Else
        'rPrint.Value = rf.EntireRow.Cells(1, 3).Value
        rPrint.FormulaR1C1 = "='" & rf.Parent.Name & "'!" & rf.EntireRow.Cells(1, 3).Address(1, 1, xlR1C1)
    End If
End Sub