Insert Column before a cell with Specific value

Hi everyone,
I want to create a command button that adds a column be4 a specified value every time is clicked.
I figured i might just search the row containing this value "Targets" and return is index, then use that
index as a basis to insert a new column.
I do find the target and its index , but it is not inserting my column.
I know there could be better code more guaranteed to work. some body can help.

Private Sub CommandButton2_Click()
Dim rng(5 To 25) As Variant, K As Integer
' dynamically assign the entire value of ranges to the array
For K = 5 To 25 'search from C to Z
rng(K) = Cells(5, K).Value
If (rng(K) = "Targets") Then
 Columns((K + 4)).Insert
 Debug.Print K
 Debug.Print rng(K)
 End If
 Next K
 End Sub

All the Best

Hi, Tryagainandagain,

please check and change both SheetName and range if they do not fit your request:

Private Sub CommandButton2_Click()
Dim rngFound As Range

Set rngFound = Sheets("Sheet1").Range("E5:Y5").Find(What:="Targets", _
    SearchOrder:=xlByColumns, _
    SearchDirection:=xlNext, _
    MatchCase:=True, _
    SearchFormat:=False)

If Not rngFound Is Nothing Then
  rngFound.EntireColumn.Insert
End If

Set rngFound = Nothing
End Sub

Ciao,
Holger