Author: Oscar Cronquist Article last updated on March 27, 2020

I will in this article demonstrate a macro that counts how many times a specific text string is found in cells containing formulas.

Click button named "Start" to run the macro named "CountTextInFormulas". The macro will use the value in cell C2 to count how many times that particular string is found in a worksheet. The result is shown in cell c3.

In the example above, the macro counts how many times the text string "COUNTIF(" is found on the current worksheet. 18 is the result. There are 18 formulas in cell range F7:F24 containing text string "COUNTIF(".

Note that this macro counts all matching text string in a cell, in other words, if the text string is found three times in one cell the macro returns 3 for that cell and then returns the total to cell C3.

• create a button and place it on a worksheet.
• assign a macro to a button.
• where to put the VBA code.
• how to save your workbook as a macro-enabled workbook.
• explain how the macro works.

I have many excel files with multiple sheets and each excel sheet has many formula which are starting from particular word e.g. FDS, FDSB, etc. Some formula has FDS, FDSB occur in the middle of the formula.

Below is the formulae for your referance
=IFERROR(FDSB(\$D21, "IC_ESTIMATE_DATE(ALL, EXP_RPT,QTR, 3, 0, , , 'MM/DD/YYYY')@RC_ESTIMATE_DATE(ALL, EXP_RPT, QTR, +3, 0, , , 'MM/DD/YYYY')"), "na")

I need to find out how many times FDS,FDSB has been appear in the sheet(total count) in such a way there are many formulas in all the cells
I just need to count the how many times FDSB occur in one particular worksheet

VBA Code

I wanted to quickly select all cells containing formulas on a sheet. I found Rick Rothstein (MVP - Excel) macro here and modified it.

```'Name macro
Sub CountTextInFormulas()

'Dimension variables and declare data types
Dim Rng As Range, C As Range, Cnt As Double, Scnt As Double

'Enable error handling
On Error Resume Next

'Save a reference to cells containing formulas to range object named Rng
Set Rng = Cells.SpecialCells(xlFormulas)

'Disable error handling
On Error GoTo 0

'Check if Rng is not empty
If Not (Rng Is Nothing) Then

'Iterate through each cell in range object Rng
For Each C In Rng

'The With ... End With statement allows you to write shorter code by referring to an object only once instead of using it with each property.
With Worksheets("Sheet1")

'Calculate how many times the text strign is found in a given cell
Cnt = (Len(C.Formula) - Len(Replace(C.Formula, .Range("C2"), ""))) / Len(.Range("C2"))

End With

Scnt = Scnt + Cnt

'Continue with next cell
Next

End If

'Return number to cell C3 on worksheet Sheet1
Worksheets("Sheet1").Range("C3").Value = Scnt
End Sub

```

Where to put the code?

1. Press shortcut keys Alt + F11 to open the Visual Basic Editor.
2. Click "Insert" on the menu.
3. Click "Module".
4. Paste code to module window.
Note, make sure you save the workbook with file extension *.xlsm (macro-enabled workbook) to keep the code attached to your file.

Create button

1. Go to tab "Developer" on the ribbon. You have to enable the "Developer" tab if it is missing.
2. Click "Insert Controls" button.
3. Insert a button (Form Controls) on the sheet near cell C2.
4. Select a macro to assign a macro to your button.
5. Click OK to close the dialog box.

Edit text in button

1. Right click on button.
2. Click on "Edit text"
3. A prompt appears inside the button. Clear the text and then type what you want it to say.
4. Click somewhere outside the button to save the text you wrote.

Change button size

It is hard to select the button if a macro is assigned to it. Use the right mouse button to select without triggering the macro. The image above shows sizing handles around the button.

1. Right-click on the button to select it. You know it is selected when the sizing handles appear.
2. Click and hold with the left mouse button on any of the size handles.
3. Drag with mouse to change the size.
4. Release the mouse button when you are happy with the button size.

You can use the SHIFT key to resize the button keeping the relationship between width and height. This works only if you click and drag the corner handles.

The Alt key lets you snap to the cell grid while resizing the button, the animated image above shows this.

Change button location

1. Select the button.
2. Click and hold with left mouse button on the button.
3. Drag with mouse to the desired location.

You can press and hold the SHIFT key to move the button vertically or horizontally using the mouse.

The Alt key lets you snap the button to the cell grid beneath.