WorksheetFunction.Sech (Excel)

Returns the hyperbolic secant of an angle.

Sech (Arg1)

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

Dim dblArg1 As Double: dblArg1 = 
Dim dblSech As Double
dblSech = WorksheetFunction.Sech(Arg1:=dblArg1)