Hey Snake,

That did the trick.

I'll remember that in the future.

Thanks

-Minitman



On Wed, 7 May 2008 08:44:15 +0200, "Snake Plissken"
wrote:

try without word "Set" in that line - it seems you just need to give a value
to the variable "lMCL_LastRow"



|
| Here is the code:
| ______________________________________________
| Option Explicit
| Dim i As Integer
| Dim lMCL_LastRow As Long
| Dim rListMCL As Range
| Dim ws1 As Worksheet
| ______________________________________________
|
| Private Sub UserForm_Initialize()
| Set ws1 = Workbooks("MCL3.xls").Worksheets("CustList")
| ws1.Activate
| Set lMCL_LastRow = ws1.Range("A65536").End(xlUp).Row '<< this line
| Set rListMCL = ws1.Range("A2:CB" & lMCL_LastRow)
| With CRefName
| .RowSource = rListMCL.Address
| .ColumnCount = rListMCL.Columns.Count
| .ListIndex = 0
| End With
| End Sub
| ______________________________________________
|
|
| Anybody have any idea as to what I am missing?
|
| Any help, suggestion, pointers or links would be greatly appreciated.
|
| Thanks for looking at my question.
|
| -Minitman