In the following code below, I want to copy a number of items from
Worksheet "Items" to Worksheet "Rooms" based on the value of txtRoom.

What am I doing wrong when I set "listrange" in the select statement?

I get a "Method 'range' of object '_global' error"

Thanks,

David

   Worksheets("Rooms").Activate
   ActiveSheet.Range("A8:A17").Select
   Selection.ClearContents
   Selection.Rows.RowHeight = 36

   Worksheets("Items").Activate
   Set itemrange = Worksheets("Items").Range("a1",
Range("a1").End(xlToRight))
   For Each ir In itemrange
       If ir.Text = txtRoom Then
           Exit For
       End If
   Next ir
Worksheets("Items").Activate
Select Case txtRoom

Case "Room1"

Set listrange = Worksheets("Items").Range(ir, Range(ir).End(xlDown))
listrange.Copy Destination:=Worksheets("SF 701").Range("a8")

Case "Room2"
...

Case "Room3"
...

Case "Room4"
...

End Select