WorksheetFunction.Sec (Excel)

Returns the secant of an angle.

Sec (Arg1)

Arg1: Angle in radians for which you want the secant.

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