variabele in macro

[cor.de.kruijf]

Hallo, in onderstaande code is (rood) "L1 serie" de inhoud van een cel (R8).
Hoe krijg ik het voor elkaar om deze code mee te laten veranderen met die cel

Sub BasisKeuze()
'
' Turn off screenupdating:
Application.ScreenUpdating = False

'
Sheets("basis").Select
Cells.Select
Selection.ClearContents
Sheets("L1 serie").Select
Range("A4:W51").Select
Selection.Copy
Sheets("basis").Select
Range("A2:A4").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("rooster").Select
End Sub

 

[Warme bakkertje]

Op welk blad staat deze cel R8?

 

[cor.de.kruijf]

Op welk blad staat deze cel R8?

deze cel staat op blad "rooster"

 

[Warme bakkertje]

Sub BasisKeuze()
Application.ScreenUpdating = False
With Sheets("basis")
    .UsedRange.ClearContents
    Sheets([Rooster!R8].Value).[A4:W51].Copy .[A2]
End With
Application.ScreenUpdating = True
End Sub

 

[cor.de.kruijf]

Sub BasisKeuze()
Application.ScreenUpdating = False
With Sheets("basis")
    .UsedRange.ClearContents
    Sheets([Rooster!R8].Value).[A4:W51].Copy .[A2]
End With
Application.ScreenUpdating = True
End Sub

GEWELDIG :thumb: en zoveel korter.

hartelijk bedankt Rudi.