Display values in a drop down in range
 

I have created a macro (see below) that when run selects selects the values
from a range of cells and places those values in drop down list.

Sub DropDown1_Change()
Application.ScreenUpdating = False
rgn$ = Range("b5")
ActiveSheet.Shapes("Drop Down 3").Select ""
Selection.ListFillRange = rgn$

What would like to do is select the values from the drop down list and
display them in range of cells


Please can someone help

thanks

Nick