Error in Macro

[rphpacheco]

Hello All!

I have a macro in a document and accessing it via the Access Point displays the following error:

"Analysis of macro failed. Functionality was lost

Robo_Refresh

Error: ActiveX component can not create object: 'WScript.Shell' "

Sub Robo_Refresh

       Set WshShell = CreateObject("WScript.Shell")

       RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Cassol\StatusCargaCadeiaValores"

       if WshShell.RegRead(RegKey) = "CARREGOU" Then

             WshShell.RegWrite RegKey, "ATUALIZOU", "REG_SZ"

           LimparSelecoes()
           SetarData()
     
      End If

End Sub

What is going wrong?

[rphpacheco]

Any suggestions to the problem?

Thanks.

[Anonymous]

Raphael, make sure you allow "system acess" to the macro.

[rphpacheco]

Yes Michael, the access permissions for the macro already enabled. Yet the problem occurred.

[Anonymous]

It is in multiple places: in macro module (left bottom, two palces), and user allows all macro (either on macro security dialog or user preferences - security, the top checkbox)