Code to set NamedRange for all application-Languages
 

Dear All,

Can I change my code so it is not depending from the Application-LanguageId
??

Select Case
Application.LanguageSettings.LanguageID(msoLanguag eIDInstall)
Case Is = 1033
ActiveWorkbook.Names.Add Name:="ImportBereik", RefersToR1C1:= _
"='SHEET1'!R1C1:R" & CStr(iLastRow) & "C9"
Case Is = 2067
ActiveWorkbook.Names.Add Name:="ImportBereik", RefersToR1C1:= _
"='BLAD1'!R1C1:R" & CStr(iLastRow) & "C9"
Case Else
End Select


Thankx,

Filip

Code to set NamedRange for all application-Languages
 

Sorry, a stupid question!

Renaming the activesheet solves the problem !!

ActiveSheet.Name = "OFFERTE"
ActiveWorkbook.Names.Add Name:="ImportBereik",
RefersToR1C1:="='OFFERTE'!R1C1:R" & CStr(iLastRow) & "C9"

Filip

"Filips Benoit" wrote in message
...
Dear All,

Can I change my code so it is not depending from the
Application-LanguageId
??

Select Case
Application.LanguageSettings.LanguageID(msoLanguag eIDInstall)
Case Is = 1033
ActiveWorkbook.Names.Add Name:="ImportBereik", RefersToR1C1:=
_
"='SHEET1'!R1C1:R" & CStr(iLastRow) & "C9"
Case Is = 2067
ActiveWorkbook.Names.Add Name:="ImportBereik", RefersToR1C1:=
_
"='BLAD1'!R1C1:R" & CStr(iLastRow) & "C9"
Case Else
End Select


Thankx,

Filip