WorksheetFunction.Sec (Excel)

Retorna a secante de um ângulo.

Sec (Arg1)

Arg1: Ângulo em radianos para o qual você deseja a secante.

Dim dblArg1 As Double: dblArg1 = 
Dim dblSec As Double
dblSec = WorksheetFunction.Sec(Arg1:=dblArg1)