Sub ApplyTexture() Dim myChart As Chart Dim ser As Series Set myChart = ActiveChart Set ser = myChart.SeriesCollection(2) ser.Format.Fill.PresetTextured (msoTextureGreenMarble) End Sub