VBA - Drop down; list range

T

Timse

Hi,

I have problems when I'm trying to define range of the list where fro
drop down -menu takes its values.

The area is variable and actually it is the problem. Here is an exampl
which might help you to understand my problem. The bolded area is no
working. On the other hand it's not giving any error reports nor.

n = Range("AJ1").Value

ActiveSheet.Shapes("Drop Down 18").Select
With Selection
.ListFillRange = *"$AH$1:$AI$" & CStr(n) *
.LinkedCell = "$AJ$2"
.DropDownLines = 10
.Display3DShading = False
End With


So if somebody knows how to manage with this problem I would be ver
thankful.


-Tims
 
D

Debra Dalgleish

There should be a dot at the start of each line in the With...End With
section:

With Selection
.ListFillRange = "$AH$1:$AI$" & CStr(n)
.LinkedCell = "$AJ$2"
.DropDownLines = 10
.Display3DShading = False
End With
 
Top