[Aidec]

У меня есть макрос экселевский

Sub Кнопка1_Щелчок()
    Dim mycel As Range
    For Each mycel In Columns("D:D").SpecialCells(xlCellTypeConstants, 23)
        If mycel = [Сегодня] Then mycel.Offset(0, 1) = [Данной_значение]
    Next
End Sub

Как мне его переделать под р7-офис(онлиофис)?
Весь инет перерыл вообще ничего полезного не нашел