Code to set NamedRange for all application-Languages

  • Thread starter Thread starter Filips Benoit
  • Start date Start date
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
 
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel macro code for copying data to a cell reference which is set byvalues in two separate cells in 3
Split DB Path to BE Code 3

Back
Top