I find this style easier to type and read:

ShHang1.RowSource _
= Sheets("Window Styles").Range("C50:C57").address(external:=true)

Bob Phillips wrote:

You don't say what the problem is. If it is this line

ShHang1.RowSource = Sheets("Window Styles").Range("C50:C57")

try

ShHang1.RowSource = "'" & Sheets("Window Styles").Name & "'!" &
Sheets("Window Styles").Range("C50:C57").Address

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"CAA " wrote in message
...
Does anybody know why i can't do this

If ShN 4 And ShN < 9 Then
shHeight1.Enabled = False
shHeight1.BackColor = &HA49597
ShHang1.RowSource = "Sheet1!B50:B56"
Else
shHeight1.Enabled = False
shHeight1.BackColor = &HF9F8EC
ShHang1.RowSource = Sheets("Window Styles").Range("C50:C57")
End If

Hope somebody can shed some light for me.
Thanks
CAA


---
Message posted from http://www.ExcelForum.com/


--

Dave Peterson