Run-Time error -- GetOpenFilename / Open Browse Box

[dkelb]

I am gettting an error:

Method 'GetOpenFilename' of object '_Application' failed

The strange thing is that it works fine on a PC. Same versions of Office.

Here is my code:

Dim fname As Variant
Dim FNUM As Long
Dim SLINE As String
Dim I As Long
Dim RW As Long
fname = Application.GetOpenFilename(filefilter:="TEXT FILES (*.TXT), *.TXT")
If fname <> False Then
    FNUM = FreeFile()
    Open fname For Input As #FNUM
    Do While Not EOF(FNUM)
        Line Input #FNUM, SLINE
        RW = RW + 1
        For I = 1 To Len(SLINE)
            Cells(RW, I).Value = Mid(SLINE, I, 1)
        Next
    Loop