Sub testOpen()

With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "Word Files", "*.doc*", 1
    .InitialFileName = "C:\Users\roy\OneDrive\Desktop\test_files\test_file_one.docm"
    If .Show = -1 Then
        strFile = .SelectedItems(1)
    End If
End With
If strFile = "" Then
    Exit Sub
End If

End Sub