WorksheetFunction.Gcd (Excel)
Retorna o máximo divisor comum de dois ou mais inteiros. O máximo divisor comum é o maior inteiro que divide núm1 e núm2 sem resto.
Se algum argumento for não numérico, MDC retornará o #VALUE! valor de erro. Se um argumento for menor que zero, MDC retornará o #NUM! valor de erro. Um divide qualquer valor igualmente. Um número primo possui a si mesmo e a unidade como divisores exatos.
Gcd (Arg1, Arg2, ..., Arg30)
Dim dblGcd As Double
dblGcd = WorksheetFunction.Gcd(Arg1:=)