I'd use:

..ListFillRange = Range("Sheetlist").address(external:=true)



JMay wrote:

Joel,
Thanks.. the
.ListFillRange = Range("Sheetlist").address << works fine, but I pickup on
what you are saying about it maybe missing the sheetName, if required.

I also tried the
.ListFillRange = Mid(Names("Sheetlist").Value, 2)
but am getting a R/T error 1004
Application-defined or Object-defined error..

Thanks for your help
"Joel" wrote:

ListfillRange want a string like Sheet1!A1:B10. You can get the range by
using the method such as

.ListFillRange = Range("Sheetlist").address


This doesn't always work because address doesn't return the sheet name.

Instead you can use this

.ListFillRange = Mid(Names("Sheetlist").Value, 2)

The Names method return an equal sign at the beginning so you need to remove
the equal sign with the mid function.



"JMay" wrote:

Trying to get sys working, but below doesn't work (No Userforms here, only WS)

Private Sub Worksheet_Activate()
With ActiveSheet.ComboBox1 ' A Control toolbox type CB
.ListFillRange = Range("Sheetlist") 'SheetList is dynamic range via
=Offset(X,0,0,Counta(A:A),1)
.ListIndex = 0
End With
End Sub

Also tried .Rowsource inplace of ListFillRange, buy NO CIGAR, Why is that?

TIA,,,


--

Dave Peterson