VBA To Insert Specific Column Before Every Existing Columns

[Rick Rothstein]

hi i have many columns up to 500 and i want to insert one column that is spesified time before every colunmns with vb the column is as below 00:00 00:30 . . . . . 23:00 23:30 00:00

Does this macro do what you want?

Sub InsertRowBefore()
     Dim X As Long, Col As String
     Col = Application.InputBox("Enter time to insert at...", Type:=2)
     For X = 100 To 1 Step -1
         If Cells(1, X).Text = Col Then Columns(X).Insert
     Next
 End Sub