Find en kolonne i et område

Public Sub Find()

Dim Antal As Integer, I As Integer, Omrade As Range, Række As Integer, Kolonne As Integer

For Each C In Worksheets("Ark1").Range("A2", "g12")
    If C.Text = 6 Then
        Række = C.Row
        Kolonne = C.Column
        MsgBox Kolonne & ", " & Række
        MsgBox Cells(Række, Kolonne).Value
    End If
Next

End Sub

Der dimensioneres måske lidt for meget, men den virker ;o)