Excel 2007 Workbooks.Open Filename not working

[PrattCanadaKevin]

I have a macro that was working to perfection in Excel 2003 but now with Excel 2007 will not work. All files I have (over 5000) are .xls.
Is the issue the file extension or the code?

DNAME = ActiveCell.Offset(0, 1)
FNAME = ActiveCell
If Not FileExists(DNAME & "\" & FNAME) Then
GoTo NOEXISTS
Else
Application.DisplayAlerts = False
Workbooks.Open Filename:=DNAME & "\" & FNAME
On Error GoTo NOEXISTS
End If

 

[VoG]

Maybe

DNAME = ActiveCell.Offset(0, 1)
FNAME = ActiveCell
If Not FileExists(DNAME & "\" & FNAME&".xls") Then
            GoTo NOEXISTS
Else
            Application.DisplayAlerts = False
            Workbooks.Open Filename:=DNAME & "\" & FNAME & ".xls"
            On Error GoTo NOEXISTS
End If