Is there a better way to do this?
If that is really what you want, then go with Jim's code.
--
Rick (MVP - Excel)
"GoBow777" wrote in message
...
Rick Rothstein;870359 Wrote:
Exactly what is the AutoFilter doing for you in this code? With the
exception of preserving the contents of Row 2 (from Columns B through
I) and
providing drop down arrows in its cells, it looks like all your code is
doing is this...
ActiveSheet.Range("$B$3:$I$202").ClearContents
--
Rick (MVP - Excel)
"GoBow777" wrote in message
...-
The macro below works fine but I was wondering is there a better way
of
writing this without having to write 8 line items?
Sub ClearSheet2()
Application.ScreenUpdating = False
ActiveSheet.Range("$B$2:$I$202").AutoFilter Field:=1
ActiveSheet.Range("$B$2:$I$202").AutoFilter Field:=2
ActiveSheet.Range("$B$2:$I$202").AutoFilter Field:=3
ActiveSheet.Range("$B$2:$I$202").AutoFilter Field:=4
ActiveSheet.Range("$B$2:$I$202").AutoFilter Field:=5
ActiveSheet.Range("$B$2:$I$202").AutoFilter Field:=6
ActiveSheet.Range("$B$2:$I$202").AutoFilter Field:=7
ActiveSheet.Range("$B$2:$I$202").AutoFilter Field:=8
ActiveSheet.Range("$B$3:$I$202").Select
Selection.ClearContents
Range("A1").Select
End Sub
Matt
--
GoBow777 -
Thank you gentlemen for your response, I appreciate it. Obviously I'm
not very good with VBA, I recorded the macro and as I said before it
works fine, but as I am still learning, I am just curious; there must
be a better way.
My goal is to reset any filtered rows and clear the contents from the
range ($B$3:$I$202) and leave the drop down arrows (row 2) intact.
--
GoBow777
|