Fehler ab spalte O | Herbers Excel-Forum"

hallo excelfreunde,
ich habe ein super beispiel für eine Userform zum suchen gefunden.
Gern würde ich sie auch so in ein Projekt mit einbauen. Nur leider sucht dieses Beispiel nur bis zur spalte O. Wenn ich die spalte O lösche funktioniert alles tadellos. Der Fehler tritt in diesem teil auf:

Private Sub SetConcatenateArray(ByRef rngData As Range)
Dim lngColumn As Long
Dim strFormel As String
If Not rngData Is Nothing Then
With rngData
For lngColumn = 1 To .Columns.Count
strFormel = strFormel & "&CHAR(9)&" & .Columns(lngColumn).Address(0, 0)
Next
strFormel = "=" & Mid(strFormel, 2) & "&CHAR(9)"
' hier ist der Fehler
mavntConcatenate() = Evaluate(strFormel)
End With
End If
End Sub