.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

conso macro 0
syntax in VBA to create a pivot table 2
Macro runs in another workbook if you open simultaneously 2
Find value in a 2nd workbook 2
Do until loop 6
Importing data seems to interfere with auto-scheduled macro 1
Find Date error message 2
An error in some code I did not write 7

Top