Range Selecteren op elke tabblad

[youdeni]

Beste,

Ik heb de volgende uitdaging. Ik heb een bestand met heel veel tabbladen. Nu heb ik met behulp van jullie een macro. Die van elk tabblad een naam definieerd en verwijst naar de range gezien van cel A1 van desbetreffend tabblad

Sub AddName()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
    
    If WS.Name <> "Index" Then
        ActiveWorkbook.Names.Add Name:=WS.Name, RefersTo:=WS.Range("A1").CurrentRegion
    End If
    
Next WS
End Sub

Nu wil ik de code zo aanpassen dat niet range van A1 geselecteerd wordt maar vanaf B1. Kolom A zou niet meer in de gedefinieerde naam moeten voorkomen.
Dus is in het bijgevoegde voorbeeld zou voor tabblad "dag" de naam verwijzen naar range

=Dag!$B$1:$E$10

In tabblad "week" naar

=Week!$B$1:$J$19

In tabblad "maand" naar

=maand!$B$1:$K$37

Ik ben bezig geweest met Offset en met Resize maar ik kom er niet uit.

Youssef

 

[AHulpje]

Range(Range("B1"), Range("B1").SpecialCells(xlLastCell)).Select

 

[snb]

Sub M_snb()
   For Each it In Sheets
     If it.Name <> "Index" Then
        With it.Cells(1).CurrentRegion
           .Offset(, 1).Resize(, .Columns.Count - 1).Name = "index_" & it.Name
        End With
     End If
   Next
End Sub

 

[HSV]

Range("B1", Range("B1").SpecialCells(xlLastCell)).Select

Kijk uit met Specialcells(xllastcell)
Die wil blijven hangen op de laatst ingevulde cel ook al is die weer leeggemaakt..

Dim WS As Worksheet
For Each WS In sheets
  with WS.cells(1).currentregion
   If WS.Name <> "Index" Then .offset(, 1).resize(, .columns.count - 1).name = WS.Name
  end with
 Next WS

 

[HSV]

Grappig @snb,

Tijdens mijn typen staat bijna een identieke bijdrage van jou.