ByRef тип аргумента не соответствует передаваемой строке

Question

Выполнив программирование на уровне A, и теперь мне приходится использовать его снова в спортивном программировании Excel через 4 года, так что все очень неоптимизировано и грязно, но все, что мне нужно, это работать, я изо всех сил пытаюсь найти исправление для этой ошибки... Я уже пытался найти исправления, но пока не повезло. что я упускаю из-за его ошибки.

Sub Button4_Click() 
Dim WeekCom As String
Dim Athlete_Profile As Worksheet
Dim Week_Programming As Worksheet
Set Athlete_Profile = Sheet11
Set Week_Programming = Sheet3

Athlete_Profile.Select

WeekCom = Athlete_Profile.Cells(20, 3)
Week_Programming.Cells(7, 4) = WeekCom
Call Week_Selection(WeekCom)
End Sub


Sub Week_Selection(ByRef WeekCom As String) <<<<<< ByRef ERROR HERE
'Need to do the following:
'SET UP DATABASE TO ACCEPT DATA FROM PROGRAM

Dim ST, WU, CD, Cat, EX, Perc, R, S, Re, WUN, EXN, CDN As String
Dim DR As Integer
Dim I As Integer
Dim Annual_Plan As Worksheet
Dim DataBase As Worksheet
Dim Week_Program As Worksheet

Set Annual_Plan = Sheet2
Set DataBase = Sheet4
Set Week_Program = Sheet3

Любая помощь будет принята с благодарностью.