WorksheetFunction.Xor (Excel)
Retorna um lógico exclusivo ou de todos os argumentos.
Xor (Arg1, Arg2, ..., Arg30)
Dim booXor As Boolean
booXor = WorksheetFunction.Xor(Arg1:=)
Arguments
Arg1, Arg2, ..., Arg30Arg1 - 1 a 254 condições que você deseja testar e que podem ser true ou false; podem ser valores lógicos, matrizes ou referências