Filter problems

B

Berry

Héé, what is wrong with my filter?

I've a code in my excel file following:
Dim X As Boolean


Private Sub Worksheet_Calculate()
Dim R As Long
If X = True Then Exit Sub
X = True
For R = 1 To Cells(65535, 3).End(xlUp).Row
Select Case Cells(R, 3).Value
Case "", 0, "C"
Me.Rows(R).Hidden = True
Case Else
Me.Rows(R).Hidden = False
End Select
Next
X = False
End Sub

But now my filter don't work anymore!

Who can help me with this problem??

Greets Berry
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel filter does not working anymore 9
Filter isn't working with a VBA Code 8
Code not working in a PROTECTED Worksheet 2
Hide Sheet when cell equals 5
Hidden sheet bleeds through 3
Excel VBA help: Text file formatting 19
VB - With protected sheet 3
Workbook_BeforeSave 8

Top