Grau hinterlegte Zellen umranden!

ich habe ein kleines Problem, bei dem ich leider nicht selbst weiterkomme!

Und zwar möchte ich einen bestimmten Bereich abbrüfen, falls in dem bestimmten Bereich grau hintelegte Zellen stehen sollten, dann sollen diese Umrandet werden.

Hat jemand von euch vielleicht einen Vorschlag?

Mein Ansatz, aber bei weitem noch nicht fertig:

Dim l As Integer
Dim k As Integer

For l = 1 To 20
For k = 45 To 60

Application.ScreenUpdating = False

If Cells(l, k).Interior.ColorIndex = 15 Then

???? With Cells(6, k)
???? .Borders.Weight = xlThin
???? End With
End If
Next k
Next l

Danke für Eure Hilfe!

LG Chris