Find and replace in specific Excel column
<p>How to modify this script to only find and replace in a specific column?</p>

<pre><code>Set xl = CreateObject("Excel.Application")
    xl.Visible = True
Set wb = xl.Workbooks.Open("C:\Users\test.xlsx")
Set ws = wb.Sheets("Sheet1")

Set objRange = ws.Range("Q1").End(xlDown).Select
objRange.Replace "~*", ""
</code></pre>

<p>The current script gives an error on the <code>Set objRange</code> line. Replacing <code>*</code> in the entire sheet would interefere with formulas.</p>