Hallo
vielleicht so?
Sub test() Dim gewisserBereich As Range Set gewisserBereich = Range("D5:H10") gewisserBereich.Interior.Color = xlNone End Sub
MfG Tom