How might I refer to and return a value of a cell just one over left
from my current cell range?

For Each Cell In rngRange
Cell.Select

If Selection.Value < "" Then
On Error Resume Next
Sh.Pictures.Insert(Selection.Value).Select
Selection.ShapeRange.ScaleWidth 0.47, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.47, msoFalse,
msoScaleFromTopLeft

Else
Exit Function
End If

Next Cell

Unfortunately this code continues down the spreasheet indefinately. I
need to Exit the For if the value of one cell left of Selection is = ""

Any help would be greatly appreciated. Thanks.