I have a database w/ a bunch of products and I assign a picture to each product using the Filedialog code as copied below.

Lately, (past few months), the dialog box opens fine but once I select a file or select cancel, it take 10-20 seconds for the dialog box to close and return control to me. Of course, this seems like forever to wait when processing a series of items.

Any ideas why this is closing so slowly?

Thank you.

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

With fDialog
.ButtonName = "Use File"
.AllowMultiSelect = False
.Filters.Add "Image Files", "*.jpg, *.gif, *.bmp, *.tif, *.png"
.Title = "Choose the Image File"
.InitialFileName = ImagePathAndName
'Use the Show method to display the FileDialog. Will return -1 (True) is something
'was selected and 0 (false) if Cancel is pressed.
'If something selected, place it in the table field value.
If .Show = True _
FilenameTemp = .SelectedItems(1)
ImageTemp = Mid$(FilenameTemp, Len(ImagePath) + 2, Len(FilenameTemp))
End If
End With