msoFileDialogFolderPicker takes very long time to open first time

Hello

Why does it take 15-20 seconds to run this code the first time after you open Excel but after that it opens right away?
Is there anything that could be done to eliminate this delay?

Sub PickNewFolder()

With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .InitialFileName = ListOfFilesinFolderSheet.Range("FolderPathCell").Value
    If .Show = -1 Then
        ListOfFilesinFolderSheet.Range("FolderPathCell").Value = .SelectedItems(1)
    End If
End With
End Sub