Variabel bereik bepalen zonder Sheet.Activate

[RoCompy87]

Hallo,

Korte vraag: Ik heb nu onderstaande code, maar om het oranje gekleurde bereik toe te passen, moet ik de betreffende sheet eerst activeren. Kan dit anders/makkelijker?

                Sheets(i).Activate
                j = Sheets(i).Columns(1).Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
                ThisWorkbook.Names("s22_match").RefersTo = [COLOR="orange"]Sheets(i).Range(Cells(1, 15), Cells(j, 15)[/COLOR])

Alvast bedankt

 

[MDN111]

Hallo !

Als we er van uitgaan dat Sheets(i) in hetzelfde Workbook zit als Names("s22_match"), dan zou onderstaande code moeten werken, ongeacht welke sheet uit hetzelfde Workbook geactiveerd is:

Sub test()
i = 1
With Sheets(i)
  j = .Columns(1).Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
  ThisWorkbook.Names("s22_match").RefersTo = Range(.Cells(1, 15), .Cells(j, 15))
End With
End Sub

Grtz,
MDN111.