PrivateSub - Filter for Blanks

[sguidry]

Good Afternoon -

I'm attempting to create a macro that hides all data on Worksheet3 any time I switch to Worksheet2 or Worksheet1 (all within the same workbook). So when I click back over to Worksheet3 from either of the other sheets, there will be no data showing.

I created a private sub within Worksheets 1 and 2 that calls another macro, which should ideally filter for "blanks", thus achieving my goal of hiding all data. For whatever reason, it is not applying any filter to Worksheet3. Any help would be greatly appreciated. Thank you!

--Private Sub included in Worksheet1 and Worksheet2
Private Sub Worksheet_Deactivate()
Call FilterBlank
End Sub

--Sub created to apply to whole workbook
Sub FilterBlank()
Sheets("Worksheet3").Range("A1").AutoFilter Field:=1, Criteria1:=" "
End Sub

 

[rs2k]

Welcome to the board,

This code is placed in the worksheet 3 module,

Private Sub Worksheet_Activate()
Selection.AutoFilter Field:=1, Criteria1:="="""""
End Sub

it will 'hide' your data, but me thinks you'll be back with another question

HTH
Colin

 

[sguidry]

Thanks, Colin! That worked much better