[RESOLVED] Excel VBA FileSearch Different Results

[Torc]

I am using the following piece of code to find the full path where Excel is installed.

Private Function FindExcel() As String
    With Application.FileSearch
        .FileName = "EXCEL.EXE"
        .LookIn = "C:\"
        .SearchSubFolders = True
        .Execute
        If .FoundFiles.Count >= 1 Then
            FindExcel = .FoundFiles(1)
        End If
    End With
End Function

When I run it on my machine I get the following results

C:\Program Files\Microsoft Office\Office10\Excel.exe

However when I run it on a colleagues machine it just returned an
empty string, despite us verifying he had Excel installed in the exact same
place.

When he tried to start Excel by tying it in Start/Run it did not work,
whereas on my machine I could.

Can anyone suggest why it cannot find Excel on his machine.