It worked fine until I added a secondary subroutine into the code. Slicer Caches("Slicer_Sol Name") Set sc4 = This Workbook. Calculation = xl Calculation Manual End Sub Public Sub TU_End() Application. Slicer Caches("Slicer_Jahr1") Set sc3 = This Workbook. Clear Manual Filter On Error Resume Next For Each si1 In sc1.

vba screenupdating-36

Slicer Caches("Slicer_Quarter") Set sc6 = This Workbook. Clear Manual Filter On Error Resume Next For Each si1 In sc1.

Slicer Caches("Slicer_Sol Name1") Set sc5 = This Workbook.

Calculation = xl Calculation Manual Dim s Conn Params, s SQL As String Dim db File, db Path, db Name As String This Workbook. Select db File = "Counsellor Data.mdb" db Name = "Counsellor Data" db Path = Sheet3.

Right(db Path, 1) "\" Then ' if last char in db Path has no slash Range("databaselocation"). Value & "\" db Path = db Path & "\" End If does Folder Exist (db Path) Application.

Whereas previously the flickering caused by seeing the sheets as the code was working through has gone now it flickers between a blank excel sheet and my screen-saver. There were only 4 de-bugs - surprisingly few considering you had nothing to validate with I do appreciate the difficulty of your trying to this 'in the dark' and I would understand if you feel this is too constrained.

Hi, I've got a listbox which populates a second listbox from cells on a hidden worksheet which is done through macros. In VBA in excel, there is a simple line that will turn off screen updating. My program opens many template parts to create new ones and promptly closes them causing the screen to go through a crazy routine of flashes....Adding these two lines on the outskirts of you code cause no screen flashing, and the application seems to freeze while the program is running. I'm starting to worry about the transe-like state I go into every time I run it...... Slicer Caches("Slicer_Sol Name") Set sc4 = This Workbook. Slicer Caches("Slicer_Jahr1") Set sc3 = This Workbook. Every time I select a value in the listbox, the screen "flickers" to the hidden worksheet.