Sub ClearSheet2()
ActiveSheet.Range("$B$2:$I$202").AutoFilter
ActiveSheet.Range("$B$3:$I$202").ClearContents
Range("A1").Select
End Sub
--
Jim Cone
Portland, Oregon USA




"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