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