Dim OldSheet As Object
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set OldSheet = Sh
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) = "Chart" Then
MsgBox "Sorry, you can't activate any charts."
OldSheet.Activate
End If
End Sub