naam def aan de hand van naam werkbad

[kibus]

goedenavond kenners

is het mogelijk om een macro te creeren die de selectie (current region) een naam geeft die gelijk is aan de naam van het active werkblad ?

alvast bedankt

Edwin

 

[Cobbe]

Sub Bladalsnaam()
    Range("A1:G40").Select
    ActiveWorkbook.Names.Add Name:=ActiveSheet.Name, RefersTo:= Sheets("Blad1").Range("A1:G40")
End Sub

Deze macro kan dat voor u opknappen.

Cobbe

 

[Wigi]

Sub Bladalsnaam()
    With Selection
        .Parent.Parent.Names.Add Name:=.Parent.Name, RefersTo:=.CurrentRegion
    End With
End Sub

Wigi

 

[kibus]

Super ! werkt als een trein

Veschil zit hem idd in het active blad