Van meerdere cases de juiste aanroepen!

[ExcelTonnie]

Op een blad in cel A1 wordt eenmaal in de week een weeknummer geplaatst doordat medewerkers ergens data plaatsen.
Dit voor het gehele jaar door. WK 1 t/m WK 53

In vba cases opgegeven met
WK1: met diverse verschillende opdrachten
WK2: met diverse verschillende opdrachten
'Dit dus 53 keer

De code zou dus 53 maal herhaald moeten worden en werkt wel prima maar te veel code, kan dit dus ook in een loop bijv.

'Hier gaat dus alles naar de WK1, hoe kan ik verwijzen naar juiste WK...
'For xt = 1 To 5
'If ws6.Range("A1") = "WK" & xt Then GoTo WK1
'Next

'Dit werkt maar niet ideaal
If ws6.Range("A1") = "WK1" Then GoTo WK1:
If ws6.Range("A1") = "WK2" Then GoTo WK2:
If ws6.Range("A1") = "WK3" Then GoTo WK3:
If ws6.Range("A1") = "WK4" Then GoTo WK4:


WK1:
de diverse opdrachten
Exit sub

WK2:
de diverse opdrachten
Exit sub

End sub

 

[HSV]

Bv.

select case ws6.range("a1").value

  case "WK1"
    de diverse opdrachten

  case "WK2"
    de diverse opdrachten

  case "WK3"
     de diverse opdrachten code voor wk3

end select

 

[ExcelTonnie]

Bv.

select case ws6.range("a1").value

  case "WK1"
    de diverse opdrachten

  case "WK2"
    de diverse opdrachten

  case "WK3"
     de diverse opdrachten code voor wk3

end select

Ah tuurlijk, ik denk weer veel te moeilijk.
hartelijk dank.