Public Function RollOverImage(rng As Range)
dim cel
Range("ref_Image").Value = Application.Caller.Value
For Each cel In rng.Cells
ActiveSheet.Shapes(cel.Value).Visible = False
ActiveSheet.Shapes(Range("ref_Image").Text).Visible = True
Next
End Function