WorksheetFunction.Odd (Excel)

Retorna um número arredondado para o próximo número inteiro ímpar.

Se núm não for numérico, ímpar retornará o #VALUE! valor de erro. Independentemente do sinal de núm, um valor será arredondado quando for diferente de zero. Se núm for um inteiro ímpar, não haverá arredondamento.

Odd (Arg1)

Arg1: Núm - o valor a ser arredondado.

Dim dblArg1 As Double: dblArg1 = 
Dim dblOdd As Double
dblOdd = WorksheetFunction.Odd(Arg1:=dblArg1)