Private Sub Worksheet_Change(ByVal Target As Range) Dim rngCell As Range For Each rngCell In Worksheets("Bestellformular").Range("S7:S12").Cells If rngCell = "" Then rngCell.BorderAround ColorIndex:=3, Weight:=xlThick End If Next End Sub