VBA - Błędny wykres względem czasu

Cześć,
przeszukałem forum, ale odpowiedzi nie znalazłem.
Problem polega na złym wyświetlaniu danych na wykresie. Mianowicie gdy wybieram zakres daty od - do i w zakresie tym jest nowy rok (zmiana z 2018 na 2019) program głupieje.
Przykładowo:
chcę wybrać zakres daty
od: 2018, tydzień 20
do: 2019, tydzień 4
to wykres generuje oś od tygodnia 4 (2018) do tygodnia 20 (2018).
Czy ktoś wie jak w prosty sposób rozwiązać ten problem?
Moja wiedza z VBA jest początkująca.

Private Sub lblOd_Click()

frmKalendarz.Show
lblOd = frmKalendarz.WybranaData

End Sub
Private Sub lblRokStart_Click()

frmKalendarz.Show
lblRokStart = Year(frmKalendarz.WybranaData)
lblTydzienStart = DatePart("ww", frmKalendarz.WybranaData, vbMonday, vbFirstFourDays)

frmWyniki2.frameWykresy.Visible = False

End Sub
Private Sub lblTydzienStart_Click()

frmKalendarz.Show
lblRokStart = Year(frmKalendarz.WybranaData)
lblTydzienStart = DatePart("ww", frmKalendarz.WybranaData, vbMonday, vbFirstFourDays)

frmWyniki2.frameWykresy.Visible = False

End Sub
Private Sub lblDo_Click()

frmKalendarz.Show
lblDo = frmKalendarz.WybranaData

End Sub

Private Sub lblRokKoniec_Click()

frmKalendarz.Show
lblRokKoniec = Year(frmKalendarz.WybranaData)
lblTydzienKoniec = DatePart("ww", frmKalendarz.WybranaData, vbMonday, vbFirstFourDays)

frmWyniki2.frameWykresy.Visible = False

End Sub

Private Sub lblTydzienKoniec_Click()

frmKalendarz.Show
lblRokKoniec = Year(frmKalendarz.WybranaData)
lblTydzienKoniec = DatePart("ww", frmKalendarz.WybranaData, vbMonday, vbFirstFourDays)

frmWyniki2.frameWykresy.Visible = False

End Sub