loop to find value in row and insert column to right until value is not found

[Stewrcin]

I have the following VBA to insert a column in my spreadsheet:

Rows(1).Find("2024").Offset(, 1).EntireColumn.Insert

I want this to loop--- finding "2024" in row 1 and inserting a column to the right until there are no more "2024" in the row.

I am very new at VBA. How do I put the above into a loop?

Thanks!

 

[DanteAmor]

Hi and welcome to MrExcel.

Try this:

Sub Insert_Column()
  Dim j As Long
  Application.ScreenUpdating = False
  For j = Cells(1, Columns.Count).End(1).Column To 1 Step -1
    If Cells(1, j).Value = "2024" Then
      Columns(j + 1).Insert
    End If
  Next
End Sub