Have the following code that is failing because of the filter:
Dim fd As FileDialog
Dim Title As String
Dim vrtSelectedItem As Variant
Set fd = Application.FileDialog(msoFileDialogSaveAs)
.Filters.Add "Excel 2007", "*.xlsx"
.AllowMultiSelect = False
.Title = "Save File"
.InitialFileName = "CI Trac.xlsx"
Problem is, if I don't use filters and the person renames the file without putting the .xlsx extention on the file name it won't open for them. Unless they know they did it, but we are talking some higher ups who may not know what they have done.
Is there any way I can do this? Thanks for taking a look.