Sub color() ActivePresentation.Slides.Range(Array(1, 2, 3)) _ .ColorScheme.Colors(ppBackground).RGB = RGB(0, 0, 0) End Sub