Hello Frank,

Change your code to the following...

Sub Makro2()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartTitle.Text = Evaluate("=Tabelle1!R1C3")
End Sub

Sincerely,
Leith Ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=54648