Sub FormatSelectedCharts()
Dim ChtObj As ChartObject
For Each ChtObj In Selection
With ChtObj.Chart
'.SeriesCollection(1).MarkerBackgroundColor = RGB(204, 102, 255)
.Axes(xlValue).HasMajorGridlines = False
End With
Next
End Sub