Sub CopyMyChart()
' Rx_ ! Please not Rx_ again
'
'
On Error goto CodeHell
Sheets("MyChart").Select
Sheets("MyChart").Copy Before:=Workbooks("Book2").Sheets(2)
Exit sub
CodeHell:
msgbox "Please don't touch my keyboard again", , err.description
End Sub