Application.GoTo Reference:=SheetData.Range("A" & SheetData.ChartObjects(1).TopLeftCell.Column), Scroll:=True
Application.GoTo Reference:=sheetdata.Range("A1"), Scroll:=True
With ActiveSheet.Shapes(1).TopLeftCell
R = .Row
C = .Column
End With
04-02
763
