Thread: Is there a better way to do this?
View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Jim Cone[_2_] Jim Cone[_2_] is offline
external usenet poster
  
Posts: 1,549
Default Is there a better way to do this?
Since .AutoFilter is actually an on/off switch consider this...
'--
Sub JustInCaseTheyComeBack()
If ActiveSheet.AutoFilterMode Then 'has filter arrows displayed
If ActiveSheet.FilterMode Then 'something is filtered
ActiveSheet.Range("$B$2:$I$2").AutoFilter 'remove
ActiveSheet.Range("$B$3:$I$202").ClearContents
ActiveSheet.Range("$B$2:$I$2").AutoFilter 'add autofilter
Else
ActiveSheet.Range("$B$3:$I$202").ClearContents
End If
Else
ActiveSheet.Range("$B$2:$I$2").AutoFilter
End If
End Sub
--
Jim Cone
Portland, Oregon USA

Reply With QuoteReply With Quote