Navngive faneark

Hvad øsnker du, at der skal ske, hvis D2 er tom? Skal arket springes over, eller skal det kaldes noget andet?

Denne springer de pågældende ark over:

Public Sub Navngivning()
    For Each wb In Workbooks
        For Each ws In wb.Worksheets
            If Not IsEmpty(ws.Range("d2")) Then
                ws.Name = ws.Range("D2").Value
            End If
        Next ws
    Next wb
End Sub

Denne gør navnet blankt. Skriv noget mellem " ", hvis det i stedet skal hedde noget.

Og så glemte jeg koden :-)

Public Sub Navngivning()
    For Each wb In Workbooks
        For Each ws In wb.Worksheets
            If Not IsEmpty(ws.Range("d2")) Then
                ws.Name = ws.Range("D2").Value
            Else
                ws.Name = " "
            End If
        Next ws
    Next wb
End Sub

Jamen, hvor kan lille årsag give stor virkning
MANGE TAK!
Svar..

Svar så kommer der points

Her er et svar :-)