Este fórum está sendo desativado

[BritoMarques]

Meus cumprimentos a todos!
Pessoal queria criar a variável "xWf" para ser usado em todo o projeto substituindo a função WorksheetFunction
Tentei colocar no WorkBook.Open a seguinte instrução: Set xWf = Application.WorksheetFunction e não deu certo.
Alguma dica?

Estou tendo de colocar a instrução em todos os módulos atualmente

[osvaldomp]

Olá, @BritoMarques .

Veja se ajuda.

Em um módulo comum:

Código: Selecionar todos

Public xwf As Object 'esta linha deve ficar na posição de primeira linha no módulo

Sub Testexwf()
 Debug.Print xwf.Sum([A1:A10])
End Sub

#
No módulo de EstaPasta:

Código: Selecionar todos

Private Sub Workbook_Open()
 Set xwf = Application.WorksheetFunction
End Sub

[BritoMarques]

Funcionou bem Osvaldo....
Obg pela enésima vez...
Meu erro era na forma de declarar