Haftanın Günlerini sırayla seçme

[ggoker]

a Sutunda güler b stunda ona karşılık gelen isimler var

butona her tıkladığımda pazartesi gününe denk gelen b stunundaki hücreyi aktif etmek istiyorum ve ikinci tıklamada bir sonraki pazartesiye denk gelen hücreyi seçecek
şu şekilne bir kod yazdım fakat hata veriyor sürekli


Cells(WorksheetFunction.Match(WorksheetFunction.Weekday(Range("a:a", 2), 1), Range("a:a"), 0), "b").Activate

 

[Orion1]

Dosyanız ektedir.

DOSYAYI İNDİR

Sub DoluÇerçeve1_Tıklat()
Dim k  As Range
Set k = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Find("Pazartesi", , xlValues, xlWhole)
If Not k Is Nothing Then k.Offset(0, 1).Select
End Sub