reformatted multiple series to use the same marker symbol

Sub FormatMarkers()
    
    Dim cht As Chart
    Dim ser As Series
    
    On Error Resume Next
    Set cht = ActiveChart
    On Error GoTo 0
    
    If cht Is Nothing Then
        MsgBox "Please select a chart first"
    Else
        With cht
            For Each ser In cht.SeriesCollection
                ser.MarkerStyle = xlMarkerStyleCircle
                ser.MarkerSize = 2
                ser.MarkerForegroundColor = vbBlack
                ser.MarkerBackgroundColor = vbBlack
            Next
        End With
    End If
End Sub