Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Pass value between events

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