Can anyone see any errors in the below code?? Not only are the dialog boxes not coming up as they appear in this VBA top-to-bottom, but the files selected in the Open File dialogs are not opening as requested either! Any issues you can spot? Not seeing any error messages or runtime stops :

Sub Macro1()
'
' Macro1 Macro
'
Dim fda As FileDialog
Dim fdb As FileDialog
Dim DataNow As Worksheet
Dim DataYes As Worksheet
Dim FileChosenA As Integer
Dim FileChosenB As Integer

MsgBox "Step 1: Select today's data."

Set fda = Application.FileDialog(msoFileDialogOpen)
FileChosenA = fda.Show
fda.Title = "Selecting today's data..."
fda.InitialFileName = "M:\Ticketing Services\OffSales with Live Orders"
fda.InitialView = msoFileDialogViewSmallIcons
fda.Filters.Clear
fda.Filters.Add "AudienceView exported report CSVs", "*.csv"
fda.FilterIndex = 1
fda.ButtonName = "Select as today's data"
If FileChosenA <> -1 Then
MsgBox "No file was selected. Please restart macro and try again."
Exit Sub
Else
End If
Set DataNow = ActiveSheet

MsgBox "Step 2: Select past data for comparison."

Set fdb = Application.FileDialog(msoFileDialogOpen)
FileChosenB = fdb.Show
fdb.Title = "Selecting past data..."
fdb.InitialFileName = "M:\Ticketing Services\OffSales with Live Orders"
fdb.InitialView = msoFileDialogViewSmallIcons
fdb.Filters.Clear
fdb.Filters.Add "AudienceView exported report CSVs", "*.csv"
fdb.FilterIndex = 1
fdb.ButtonName = "Select as past data and compare data"
If FileChosenB <> -1 Then
MsgBox "No file was selected. Please restart macro and try again."
Exit Sub
Else
End If
Set DataYes = ActiveSheet


'
End Sub
Thanks for your help in advance

Ollie.