Navngiv variabelt område med VBA

Gætter på :

Range("B1", Range("H1").End(xlDown)).Select
Selection.Name = "DATA"

Hej.
Det ser ud til at virke. Det er jo simpelt, når man bare ved det.
Området er 'selected'. Hvordan 'un-selecter' man?
Læg et svar.

[a1].select

lige under Selection.Name = "DATA"
husk du skal ikke selv svare på dine egne spørgsmål

Den pæne løsning uden select, om som sletter DATA, hvis det findes i forvejen
Public Sub NameItData()
    Const sRNG_DATA As String = "DATA"
    If NameExists(ThisWorkbook, sRNG_DATA) Then ThisWorkbook.Names(sRNG_DATA).Delete
    ThisWorkbook.Names.Add Name:=sRNG_DATA, RefersTo:=Range("B1", Range("H65536").End(xlUp))
End Sub

Private Function NameExists(ByRef WB As Excel.Workbook, _
    ByRef WhatName As String) As Boolean
   
    On Error Resume Next
    NameExists = Len(WB.Names(WhatName).Name) <> 0
    On Error GoTo 0
End Function


Den hurtige og knapt så kønne
Public Sub NameItData()
    Const sRNG_DATA As String = "Data"
    On Error Resume Next
    ThisWorkbook.Names(sRNG_DATA).Delete
    ThisWorkbook.Names.Add Name:=sRNG_DATA, RefersTo:=Range("B1", Range("H65536").End(xlUp))
End Sub

Man kan selvfølgelig også bruge select - men det gør man jo aldrig, da det altid vil være den langsomme løsning.

Excelent: Tak for hjælp. Yeps, usmart at svare på egne spgm.
FlemmingDahl: Jeg vil bruge absolut bruge den 'hurtige'. Tak for det. Læg et svar.

Jeg vil lave en 'deler'.

Hjald

:-) Den hurtige metode - det var blot hurtigt kodemæssigt - den jeg ville bruge er den første.