Ok, i figured out it was not working when i use the keyboard shortcut, but the new code actually does work without screen flashing and works pretty fast if i manually run the macro!
I have one other issue. The macro you just helped with is the second macro I run on this spreadsheet. The first one highlights certain rows based on filtering. I set an autofilter and filter by criteria in one column and mark the affected rows by highlighting them, then turn it off and filter by criteria in another column and highlight those rows, then turn it off and filter by a third column and highlight those rows. When I turn off the last filter i then run the macro you wrote and it shows all the highlighted rows.
The problem is, the first macro is missing some rows.
Sub ABSOLUTEHIGHLIGHTED()
'
' ABSOLUTEHIGHLIGHTED Macro
' Macro recorded 3/10/2011 by Andrew Quirl
'
' Keyboard Shortcut: Ctrl+Shift+L
'
Rows("4:4").Select
Selection.AutoFilter
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Selection.AutoFilter Field:=7, Criteria1:=">=5 to 6 weeks", Operator:= _
xlAnd
Rows("5:386").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.AutoFilter Field:=7
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
Selection.AutoFilter Field:=25, Criteria1:=">(35) Active", Operator:= _
xlAnd
Rows("405:1981").Select
Range("T405").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.AutoFilter Field:=25
Selection.AutoFilter Field:=38, Criteria1:="Yes"
Rows("1026:2098").Select
Range("T1026").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.AutoFilter Field:=38
End Sub