Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Now what's odd is that on Workbook_Open I have set ScreenUpdating equal to false see the below code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'set zoom for active sheet to columns with data ActiveSheet.UsedRange.Resize(ActiveSheet.UsedRange.Columns.Count).Select ActiveWindow.Zoom = True: ActiveWindow.VisibleRange(1, 1).Select End Sub
I've discovered that if I add another Application.ScreenUpdating
Private Sub Workbook_Open() Application.ScreenUpdating = False Call FormatWorkbook 'activate StandardMode Sheets("StandardMode").Activate End Sub