Erro extrair valor máximo em colunas. VBA (sempre retorna zero, por quê?) - excel, vba, max

Alguém pode ajudar a corrigir o código? É sempre retorno zero, por quê? Eu quero comparar os dados nas colunas H e extrair o valor, armazenar em deslocamento (1,2). Por favor, ajude a verificar o meu erro, muito obrigado

Dim Highest As Double

Highest = Application.WorksheetFunction.Max(Columns("H"))

wkbCrntWorkBook.Activate

ActiveCell.Offset(1, 2).Value = Highest

Respostas:

Tente fazer isso - essa é uma fórmula de matriz em VBA que converte texto em números para o Max função.

Dim Highest As Double
Highest = Evaluate("Max(H:H*1)")