hi,
i have a commandbutton on an excel worksheet. on my operating system the
code bellow works but on another computer it prints : run-time error '438'

can you help me to solve this problem?

Sub CommandButton1_Click1()
Dim LNGCOUNT As Long
With Application.FileDialog(msoFileDialogOpen)
..AllowMultiSelect = False
..Show
ActiveSheet.Shapes.AddPicture .SelectedItems(1), True, True, 20, 25, 220, 270
End With
End Sub