I have the following code that syncs word.officeui across different computers. (written by a fellow Eileen's Lounge member).

It works wonderfully across different Windows computers, but the blue line below triggers an error on Mac.

Is there an alternative that I can use for Mac?


Sub AutoOpen()

Dim fso As Object
Dim strProfile1 As String
Dim strProfile2 As String
Dim strPath1 As String
Dim strPath2 As String
Dim fil1 As Object
Dim fil2 As Object
Set fso = CreateObject("Scripting.FileSystemObject")
strProfile1 = Options.DefaultFilePath(wdStartupPath)
strProfile2 = Environ("UserProfile")
strPath1 = strProfile1 & "\Word.officeUI"
Set fil1 = fso.GetFile(strPath1)
strPath2 = strProfile2 & "\AppData\Local\Microsoft\Office\Word.officeUI"
Set fil2 = fso.GetFile(strPath2)
If fil1.DateLastModified > fil2.DateLastModified Then
MsgBox ("Plesse Exit Word and Restart for User Setting Synchronization")
End If

End Sub