Finding the cell position (row,column) by using variable
<p>I have an Excel sheet having one column as date as below :</p>

<p><a href="https://i.stack.imgur.com/1Mybv.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/1Mybv.png" alt="enter image description here"></a></p>

<p>My Job is to find to the position (cell,column) for a today's date</p>

<p>Script I am using :</p>

<pre><code>Sub MacroExample()    
 Dim a As Variant   
 Dim column_Position As Variant  
 Dim row_Position As Variant   
 a = Format(Date - 1, "MM\/dd\/yyyy")   
 'MsgBox "The Value of a : " &amp; a    
 Dim oRange          As Range   
 Set oRange = Worksheets(1).Range("A1:Z10000").Find(a, lookat:=xlPart)

 'MsgBox oRange.Address    
 MsgBox column_Position   
 MsgBox row_Position    
End Sub
</code></pre>

<p>My output should be:</p>

<pre><code>column_Position = 5 
row_Position = 1
</code></pre>