Reply to thread

Message: [QUOTE="Tom Ogilvy, post: 6260903"] Here is a guess at what you are trying to do: It assumes the formula in the cells of refrange are like =Sheet3!B9 or =Sheet3!$B$9 Private Sub ComboBox1_Change() Dim i as Long, rng as Range Dim refrange As Range Dim c As Range ComboBox2.ListIndex = -1 ComboBox3.ListIndex = -1 ComboBox4.ListIndex = -1 ComboBox5.ListIndex = -1 Select Case ComboBox1.Value Case "GSOP_0286" Set refrange = Sheets("Sheet2").Range("A3:A20") i = 0 For Each c In refrange s = Replace(c.formula,"=","") set rng = [s] rng.entireRow.copy Sheets("Report").Range("A2") _ .offset(i,0) _ .PasteSpecial Paste:= _ xlPasteAll, _ Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False i = i + 1 Next c End Select End Sub[/s] [/QUOTE]