I might suggest using a for i next i loop with a filterdata filter
incorporated. Change to suit

Sub FilterAndPrint()
lr = Cells(Rows.Count, "m").End(xlUp).Row
On Error Resume Next
For i = 1 To 8
Set x = Columns("m").Find(i, LookIn:=xlValues)
If Not x Is Nothing Then
With Range("M2:Q" & lr)
.AutoFilter Field:=1, Criteria1:="Member#" & i
.PrintPreview
.AutoFilter
End With
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"GatorGirl" wrote in message
...
I have a table in excel which contains the following type of data:

Column A Column B
Column C
Member#1 Member Name1 1st Child
Name
Member#1 Member Name1 2nd Child
Name
Member#1 Member Name1 3rd Child
Name
Member#2 Member Name2 1st Child
Name
Member#2 Member Name2 2nd Child
Name
Member#5 Member Name5 1st Child
Name

I want to print only the rows which are respective to member #1, then
member
#2 and so on.....I have about 4,000 rows and about 1,300 members.
Any Ideas?

Thank you-