Insert new column when "average" found in row 3

This code inserts a new column to the left of Column CV

Sub Macro1()
    Columns("CV:CV").Select
    Selection.Insert Shift:=xlToRight
End Sub

I am looking for assistance with this code. I am wanted to modify it so it will scan Row 3 for the contents “Average”. When those contents are found in a column in Row 3, the code will insert a new column to the left of that column. In other words whatever column in Row 3 that contains the contents “Average” a new column will be inserted to the left of that column. Can you help?

Hello Buddy7,

Here is a macro to insert a new column whenever any cell in row 3 equals "average".

Sub Macro1()

  Dim C As Long
  Dim Rng As Range
  Dim RngEnd As Range
  
    Set Rng = Rows(3).EntireRow
    
      For C = Rng.Columns.Count To 1 Step -1
        If LCase(Rng.Cells(1, C)) = "average" Then
           Rng.Cells(1, C).EntireColumn.Insert
        End If
      Next C
    
End Sub

Buddy7,

Try:

Option Explicit
Sub FindInsertColumn()
Dim a As Long
Application.ScreenUpdating = False
With Sheets("Sheet1")
  For a = .Cells(3, Columns.Count).End(xlToLeft).Column To 1 Step -1
    If .Cells(3, a) = "average" Then .Cells(3, a).EntireColumn.Insert
  Next a
End With
Application.ScreenUpdating = True
End Sub

Then run the "FindInsertColumn" macro.

Like so:

Sub AddColumn()
Dim c As Long
   c = Rows("3:3").Find("Average").Column 
   Columns(c).EntireColumn.Insert (xlShiftToRight)
End Sub