Sub Macro1()
On Error Resume Next
Range("B2").Select
Do
ActiveSheet.Pictures.Insert( _
ActiveCell.Offset(0, -1).Value).Select
ActiveCell.Offset(1, 0).Select
If Len(ActiveCell.Offset(0, -1).Value) = 0 Then Exit Do
Loop
End Sub

--
HTH,
Gary Brown

If this post was helpful to you, please select ''YES'' at the bottom of the
post.



"Rookie_User" wrote:

My original request was to read a path from column A and in column insert an
object (AutoCAD file) based on that path. Well, no luck so far. Can someone
help me. If Column A has the example below, what formula or programming
would I use to cascade down column A, reading the values, inserting the
object (I might convert them all to jpgs and insert picture if that is
easier) based on the value in columnA.

Column A
C:\Documents and Settings\jason.hopson\My
Documents\5590_1_RECEIVE\5590_SLDW_AUTO.dwg

This could have been done manually by now so now I am really in a tough
spot. It just seems as though it should be simple and possible :).

Thanks again, I think Tom, Ron, and all the MVP's and others are a serious
part of support, above and beyond the normal support avenues. Reality builds
confidence and you don't get that from a support hotline.