The code below is working to copy data and paste it into the first open cell in Column A of the Equipment Photos tab. I need to add code that will;
-select the cell that just had the data added to it and the empty cell next to it in column B
-then create a Named Range using the value in the column A cell
-the user should then be prompted to insert a photo into the column B cell, if they have one

I tried searching this forum and doing internet searches, but nothing did exactly what I was looking for.

Thank you!


[CODE]
Range("P2").Select
Selection.Copy
Sheets("Equipment Photos").Select
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(LastRow, 1).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
[\CODE]