Can this be done without selecting the text box? I am using it to put a
picture in a text box, the picture number is in cell G1. Or is there a
better way?

Using Excel 2003

Thanks



Sub ShowPictures()



ActiveSheet.Shapes("Text Box 21").Select

Selection.Characters.Text = ""

With Selection.Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic



End With

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid

Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Line.ForeColor.SchemeColor = 64

Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

Selection.ShapeRange.Fill.Visible = msoTrue

Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)

Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)



On Error GoTo NoPic



Selection.ShapeRange.Fill.UserPicture _

Application.DefaultFilePath & "\My Pictures\Carousels" & "\" &
Range("G1").Value & ".jpg"



On Error GoTo 0

Exit Sub



NoPic:

MsgBox Prompt:="No Picture Available", _

Title:="Error Retrieving Picture", _

Buttons:=vbOKOnly

On Error GoTo 0



End Sub