@moke123: this one.. Private Sub cmdSelectPhoto_Click()
Dim ofD As FileDialog
Dim file
Set ofD = Application.FileDialog(msoFileDialogOpen)
ofD.AllowMultiSelect = False
ofD.Filters.Clear
ofD.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
If ofD.Show =...