I have a add and resize photo macro which should work but doesnt!!

Please can you advise me where it should live and what I need to do in order that other machines will be able to use it from within the document!?

The idea is that by pressing Alt + P the user will be sent to a folder and then may select a photo which will be resized to 1.4 by 1.8 inches.

Thanks in anticipation.

John

[vba]Sub AddPicturefromdirectory()
If Selection.Information(wdWithInTable) Then
Dialogs(wdDialogInsertPicture).Show
With Selection.Cells(1).Range.InlineShapes(1)
.LockAspectRatio = msoTrue
.Width = InchesToPoints(1.4)
.Height = InchesToPoints(1.8)
.Range.Copy linktofile:=False, savewithdocument:=True
End With
Else
' Error Message and Quit
End If
End Sub[/vba]