ActiveSheet.Shapes("Drop Down 2").Select
With Selection
.ListFillRange = "AccessPoint!$N$2:$N$9"
.DropDownLines = 8
End With
Range("C1").Select
End Sub
Any help here would be greatly appreciated.
Thanks.
Dan
*** Sent via Developersdex http://www.hide-link.com/ ***