Dim FSO As Object
Dim sDoc As String
    sDoc = Environ("USERPROFILE") &  "\Regulatory - Templates\Toolbar.dotm"
    'MsgBox sDoc
    Set FSO = CreateObject("Scripting.FileSystemObject")

    If FSO.FileExists(Environ("USERPROFILE") &  "\Regulatory - Templates\Toolbar.dotm") Then
        Documents.Add sDoc
    Else
        MsgBox "The toolbar template is not found"
    End If
    Set FSO = Nothing