Idioma "All" vs "Todas"

hola, Alex !

... en una macro limpio los filtros de una tabla dinámica con el siguiente codigo:
If .PivotFields(i).Orientation = 3 Then .PivotFields(i).CurrentPage = "(All)"
... cuando el excel esta en español debo poner "Todas" en vez de "All"
¿como puedo detectar el idioma en el que esta excel?

1.- define una variable de tipo 'string' al principio del codigo
2.- 'llenala' segun el codigo de pais de la version instalada de excel [p.e.]
Sub AquiTuMacro()
Dim Todas As String
Select Case Application.International(xlCountryCode)
Case 1: Todas = "(All)" ' excel instalado en idioma ingles [usa] '
Case 34: Todas = "(Todas)" ' excel instalado en idioma español '
' Case 'n' -> hay mas codigos segun la 'internacionalizacion' que necesites dar al codigo ;) '
End Select
' [... aqui las demas lineas de tu codigo ...]
If .PivotFields(i).Orientation = 3 Then .PivotFields(i).CurrentPage = Todas
' [... aqui las restantes lineas de tu codigo ...]
End Sub

saludos,
hector.

p.d. visita: http://support.microsoft.com/defaul...;es;213833