Vielen Dank, genau das war das Problem.
Macro Läuft.

 

Sub Find_header()

Dim SrcWbk As Workbook
Dim c As Range

Set SrcWbk = ActiveWorkbook

With SrcWbk.Worksheets("Blattname")
    Set c = .Range("A4:AL4").Find(What:="dicken Pulli an", LookIn:=xlValues, LookAt:=xlWhole, _
        MatchCase:=False, SearchFormat:=False)
    If Not c Is Nothing Then
       GoTo 10
    Else
        Columns("AF").Insert Shift:=xlToRight
    End If
End With
10
Call ende1
End Sub

Hier mal der komplettee Code, fall jemand diese Lösung auch sucht.

Gruss
Mike