Функция для условного форматирования

[kipish_lp]

Здравствуйте!
Подскажите, пожалуйста, как сделать следующее:
Есть запрос, в котором поля называются: 01, 02, 03…31, Месяц, Год.
Есть форма, в которой отображаются поля запроса в виде таблицы.
Я хочу написать функцию, в которой бы вычислялось (для условного форматирования) является ли ячейка выходным днем. Например:

Public Function WE(cel As String) As Boolean
    Dim db As DAO.Database, rs As DAO.Recordset
    Dim Dataitog As Date
    Set db = DBEngine.Workspaces(0).Databases(0)
    Set rs = db.OpenRecordset("Сводная")
'''' 
dd = cel 'здесь я хочу получить название колонки
''''
    mm = rs.Fields("Месяц") 'здесь - код месяца из поля "Месяц"
    yy = rs.Fields("Год") 'здесь - год из поля "Год"
    
    Dataitog = "" & dd & "." & mm & "." & yy & ""
    x = Weekday(Dataitog, 2)
    If x = 6 Or x = 7 Then
        WE = True
    Else
        WE = False
    End If
End Function

Функция работает, если cel задать самостоятельно.
Каким образом я могу получить название поля, чтобы в функции оно определялось само?

[kipish_lp]

Ответ нашла сама,

Public Function WE(cel As Variant) As Boolean
''''''''
dd = cel.Name

Но у меня другой вопрос: почему в условном форматировании форматируется по первому значению из указанной в макросе колонки? Почему не по значению активной строки?
Подкажите, пожалуйста, если знаете.