title: VBA find the positional coordinates of the found value
body: <p>I have this simple <code>macro</code> that goes to the location where a value is.</p>
  
  <pre><code>Sub dkdk()
      Dim dk As String
      Dim rng
      dk = "Document Type"
      If Trim(dk) &lt;&gt; "" Then
          With Sheets(1).Range("1:10")
              Set rng = .Find(dk, .Cells(.Cells.Count), xlValues, xlWhole, xlByRows, xlNext, _
              False)
              Application.Goto rng, True
              If  Then
  
              End If
          End With
      End If
  End Sub
  </code></pre>
  
  <p>How can i take in a <code>msgbox</code> the location i.e. <code>Cells(x,y)</code> of the value in the <code>Excel</code> grid?</p>