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,,,