VBA code Error after changed to windows 7, working fine in windows XP before

Hi,

Can anyone help me,

The code run perfectly in window XP but when I changed to windows 7 got runtime error

Workbooks.Open Filename:=IName does not work. the filepath have not changed. remained as before

Sub Open_files_list()

Dim IName As String
Dim Column As String
Dim r As Integer


Sheets("Filepath").Select

Column = InputBox("Please Select Filepath either Column A or B") ' no number, but a b c


For r = 2 To 26
IName = Cells(r, Column)
Workbooks.Open Filename:=IName
ActiveWindow.WindowState = xlMinimized
Next r

ActiveWindow.WindowState = xlMaximized

End Sub