Assuming they will:
[vba]for each cell in range("b3:q4").cells
if cell.value <> "" then me.controls("img" & cell.address(0,0)).picture = me.controls("img" & cell.value).picture
next cell[/vba]
Assuming they will:
[vba]for each cell in range("b3:q4").cells
if cell.value <> "" then me.controls("img" & cell.address(0,0)).picture = me.controls("img" & cell.value).picture
next cell[/vba]
Be as you wish to seem
Posting Permissions
Reply With Quote