How to make VBA read value in cell

I have am writing a code, but I would like the code to read the value in the cell.

For Example, instead of putting 3 in "ActiveChart.SeriesCollection(1).Points("3").Select" I would like to put the value 3 in a cell, A1=3.

Here is my current code.

Sub MarkerPlacementAndColor()

'
' MarkerPlacementAndColor Macro
'

'
    ActiveSheet.ChartObjects("chart 23").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points("3").Select
    With Selection
        .MarkerStyle = -4142
    End With
    Selection.MarkerStyle = 1
    Selection.MarkerSize = 10
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .Solid
    End With
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorText1
        .ForeColor.TintAndShade = 0
        .Transparency = 0
        .ForeColor.RGB = RGB(0, 0, 0)
    End With
    Selection.Format.Line.Visible = msoTrue

Thanks,

Ehizzle