Use Cell Address to Get Cell's Value
<pre><code>Sub selectRange()
    Dim A As String
    A = ActiveCell.Address
     MsgBox A
     MsgBox Cells(A)
End Sub
</code></pre>

<p>When I pass A as a parameter it shows error how should i pass values in parameter for current cell's data.</p>