VBA excel: Tjek om cellen har et navn

denne kode tjekker om celle B2 har et navn

If Range("B2").Name.Name <> "" Then
  'her kan du udføre den kode der er relevvant hvis celle B2 ikke har et navn
End If

/Christian

Tak for hurtigt svar. Og det virkede. Men det var bare ikke det jeg søgte og det fik jeg ikke beskrevet i spørgsmålet.

Jeg kan godt tjekke en enkelt celle, men udfordringen ligger i, at løbe et antal rækker igennem i en kolonne og tjekke om cellen har et navn.

Har forsøgt med følgende, der ender i en 1004 fejl:

Range("Name").Select

Do Until ActiveCell.Row = 73
On Error GoTo nextloop
    If ActiveCell.Name.Name <> "" Then
      MsgBox ActiveCell.value
    End If
    ActiveCell.Offset(1, 0).Select
nextloop:
Loop

Har du et forslag til en løsning her?

Du kan bruge denne kode


    Dim str As String
    Dim item As Range
    On Error Resume Next
    For Each item In Range("B1:B8")
        str = item.Name.Name
        If str <> "" Then
            MsgBox item.Value
        End If
        Err.Clear
        str = ""
    Next


/Christian

Fedt. Tak ska du ha!