hey guys bit of a weired one here

I have this

Application.ScreenUpdating = False
Sheets(sActive).Visible = xlSheetVisible
Sheets(sActive).Activate
For I = 1 To cSheets.Count 
Worksheets(cSheets.Item(I)).Visible = cHStatus.Item(I)
Next
Application.ScreenUpdating = True
to unhide certain sheets after somthing that hides all but 1 sheets

cSheets is a collection of all sheet names
cHStatus is a collection of sheets that where origanly visible
populated by

For Each Worksheet In Worksheets
cSheets.Add Worksheet.Name, Worksheet.Name
cHStatus.Add Worksheet.Visible, Worksheet.Name
Next
sActive is the name of the sheet that was originaly active

on running this code i get alot of flashing
i have tryed:
Application.ScreenUpdating = False
but no joy
on every sheet that shows it blinks up and then goes back to the original sheet (sSheet)


i want the sheet to look good and this is the only thing that is bugging me
any ideas??