This works in 2007
Please replace sheet names as needed, calling your data page "Sheet1"
Goto the sheet you want to print "Sheet2"
In cel "A1" enter the room number
In cell "A2" enter the formula =IFERROR(MATCH(A1,Sheet1!A1:A3000,0),"")
In cell "A3" enter the formula =IFERROR(MATCH($A$1,INDIRECT("'" & "Sheet1"
&"'!" & "A" & (A2+1) &":A3000"),0)+A2,"")
Drag/fill cell "A3" down as far as you need (more than number of lines that
will occur) -this will create a reference for each row that your room
number occurs
In cell "B2" enter =IFERROR(INDIRECT("'" & "Sheet1" &"'!" & "B" & (A2)),"")
Drag/fill cell "B2" down as needed -this will copy your room names
In cell "C2" enter =IFERROR(INDIRECT("'" & "Sheet1" &"'!" & "C" & (A2)),"")
Drag/fill cell "C2" down as needed -this will copy your area

Hope this helps

"jeffkeef" wrote in message
...
I have a 2900 line spreadsheet from top to bottom with information about
rooms and organized by it's room number:
example:
col a: b : c : d:
101: Main Lobby: Lobby is 590 Sq ft
102: Janitors Closet: 15 sq ft
103: Elevator room: 15 sq ft
103: Elevatior room 2: 24 sq ft

I want to be able to have one source page where I can type the room number
in and then allow it to show and then print the room number. No data
filters
that's ok but not what I'm looking for. Some rooms have like 20-25 lines
of
information while some only has 3-4. Macro is ok but how?
--
Jeff