Set mySlides = ActivePresentation.Slides.Range(1)mySlides.ColorScheme.Colors(wpTitle).RGB = RGB(0, 255, 0)