Code to set NamedRange for all application-Languages

F

Filips Benoit

Dear All,

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

Select Case
Application.LanguageSettings.LanguageID(msoLanguageIDInstall)
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
 
F

Filips Benoit

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
 
Top