<div>
Where have you placed that code? It should be placed on the Sheet Module of the Sheet which will be activated.<br />
So if you want to run this code when say Sheet2 gets activated, right click the Sheet2 Tab --&gt; View Code --&gt; Place the code into the opened code window --&gt; Save your workbook as Macro Enabled Workbook.<br />
<br />
Also, the line which places the formula should be like this...<br />
<br />

<pre><code id="code-20-42689122-1">Range(&quot;B10:B1000&quot;).Formula = &quot;=IFERROR(MID(C17,FIND(&quot;&quot;*&quot;&quot;,SUBSTITUTE(C17,&quot;&quot;\&quot;&quot;,&quot;&quot;*&quot;&quot;,LEN(C17)-LEN(SUBSTITUTE(C17,&quot;&quot;\&quot;&quot;,&quot;&quot;&quot;&quot;))))+1,LEN(C17)),&quot;&quot;&quot;&quot;)&quot;</code></pre>
</div>


Where have you placed that code? It should be placed on the Sheet Module of the Sheet which will be activated.
So if you want to run this code when say Sheet2 gets activated, right click the Sheet2 Tab --> View Code --> Place the code into the opened code window --> Save your workbook as Macro Enabled Workbook.

Also, the line which places the formula should be like this...



Range("B10:B1000").Formula = "=IFERROR(MID(C17,FIND(""*"",SUBSTITUTE(C17,""\"",""*"",LEN(C17)-LEN(SUBSTITUTE(C17,""\"",""""))))+1,LEN(C17)),"""")"

<div>
Also, this will only work if you are on another sheet and you return to this sheet.
</div>


Also, this will only work if you are on another sheet and you return to this sheet.

<div>
<div class="content wysiwyg-content">
I am trying to copy a formula in a range of cells. I placed the worksheet activate and nothing is happening. What am I missing.<br />
<br />
<br />
Private Sub Worksheet_Activate()<br />
Range(&quot;B6&quot;).Select<br />
<br />
Range(&quot;B10:B1000&quot;).Formula<wbr /> = &quot;=IFERROR(MID(C17,FIND(&quot; * &quot;,SUBSTITUTE(C17,&quot; \ &quot;,&quot; * &quot;,LEN(C17)-LEN(SUBSTITUTE(<wbr />C17,&quot; \ &quot;,&quot;&quot;))))+1,LEN(C17)),&quot;&quot;)&quot;<br />
Range(&quot;D10:D1000&quot;).Formula<wbr /> = &quot;=LEFT(B10,10)&quot;<br />
<br />
End Sub
</div>
</div>


I am trying to copy a formula in a range of cells. I placed the worksheet activate and nothing is happening. What am I missing.


Private Sub Worksheet_Activate()
Range("B6").Select

Range("B10:B1000").Formula = "=IFERROR(MID(C17,FIND(" * ",SUBSTITUTE(C17," \ "," * ",LEN(C17)-LEN(SUBSTITUTE(C17," \ ",""))))+1,LEN(C17)),"")"
Range("D10:D1000").Formula = "=LEFT(B10,10)"

End Sub

Copying formula down column

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.