1: 2: 3: 4: 5: 6: 7:
' K1 contain a different range whenever List001 changes ie. M1:M20 or N1:N15 listrng = Range("K1") ActiveSheet.Shapes("List002").Select With Selection .ListFillRange = listrng .Display3DShading = True End With
Never mind - I overlooked the 3Dshading bit - try:
1: 2: 3: 4: 5: 6: 7: 8:
' K1 contain a different range whenever List001 changes ie. M1:M20 or N1:N15 listrng = Range("K1") ActiveSheet.Shapes("List002").Select With Selection .ListFillRange = "" .ListFillRange = listrng .Display3DShading = True End With