.ListFillRange as Variable ? in Listbox

L

lance-news

I am trying to create a Listbox and the ListFillRange is dependent
on what is in Sheet 2 Column 1. I am sure my mistake is something
simple but I cannot figure it out. Any help would be appreciated.

Lance



Sheets(2).Select
LastRow = Cells.Find("*", SearchOrder:=xlByRows,
SearchDirection:=xlPrevious).Row

DropRange = "'Sheet2!A1:" & LastRow & "'"


Sheets(1).Select
ActiveSheet.ListBoxes.Add(780, 65, 125, 500).Select
With Selection
.ListFillRange = DropRange
.LinkedCell = ""
.MultiSelect = xlExtended
.Display3DShading = False
End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Range With Variables 1
If Cells.Find returns run-time error '91': Object variableor With block variable not set 1
Worksheet_Change Woes 6
Selectblank cells 2
syntax in VBA to create a pivot table 2
Code seems to have not copied fully 0
Find Next Row With No Value In It - But Not Next Row With No FormulaIn It 2
Macro runs in another workbook if you open simultaneously 2

Top