title: Finding the cell position (row,column) by using variable
body: <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>