VBA: Array aus Zellbereich mit Name

Worksheets(2).Range("Keywords") 'entspricht den Werten in Spalte A, ohne Überschrift

Sub checkTxt()
Dim i As Long, j As Long, arrKeywords() As Variant, varLastRow As Long
arrKeywords = Array("text1", "text2", "text3")
With Worksheets(1)
varLastRow = .Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To varLastRow
With .Range("A" & i)
For j = LBound(arrKeywords) To UBound(arrKeywords)
If .Value Like "*" & arrKeywords(j) & "*" Then
.Offset(0, 1).Value = True
Exit For
End If
Next j
End With
Next i
End With
End Sub