Zelle P5 als Bezug aber Wie

Function IstBerechtigtSpeichern() As Boolean
Dim rng As Range, i As Integer
With Sheets("Werk")
Set rng = .Range(.Cells(5, 10), .Cells(100, 10).End(xlUp))
End With
For i = 1 To rng.Rows.Count
'  If LCase(rng.Cells(i, 1)) = LCase(Environ("Username")) Then
If LCase(rng.Cells(i, 1)) = HIER p5  ?   Then
IstBerechtigtSpeichern = True
Exit Function
End If
Next
End Function

gr. Kurt P