PDA

View Full Version : Solved: Sheet Calculate Event Not Working



zoom38
06-07-2009, 01:52 PM
I'm trying to activate the "Private Sub Worksheet_Calculate()" on a specific sheet from a module. I have the following code in a module and it is not activating the calculate event on the worksheet. Can anyone advise what I am doing wrong?


Application.ScreenUpdating = True
Sheets("Both Platoons").Calculate
Application.ScreenUpdating = False


Thanks
Gary

zoom38
06-07-2009, 02:12 PM
Disreguard this post, I had EnableEvents set to false. The following did it.


Application.EnableEvents = True
Application.ScreenUpdating = True
Sheets("Both Platoons").Calculate
Application.ScreenUpdating = False
Application.EnableEvents = False


Thanks
Gary