What error are you getting? Your code works for me.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Paul" wrote in message
...
Looks like I am not handling the variable properly in the
following. Can you tell me what I am doing wrong? the 5th
line causes an error.

Sub Macro1()

Dim point As Integer
point = Worksheets("open").Range("aa1").Value

ActiveSheet.ChartObjects("Chart 10").Activate
ActiveChart.SeriesCollection(1).Points(point).Sele ct
With Selection
.MarkerBackgroundColorIndex = 3
.MarkerStyle = xlCircle
.MarkerSize = 11
End With
End Sub