| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to Add NamedRange Controls to Worksheets? | Excel Worksheet Functions | |||
| Addressing cells in a NamedRange | Excel Programming | |||
| Application error with VBA code | Excel Programming | |||
| Cell Reference within NamedRange | Excel Programming | |||
| sum (column 2 of namedrange) | Excel Programming | |||
Linear Mode
