Добрый день, всем!
Образовалась следующая проблема. Хочу, исполнить (выполнить) макрос на фокспро, который сделал на visual basic.
Суть макроса заключается по окончании определенного цикла, т.е. на определенном номере ячейки я ставлю нижнюю черту (подчеркивание нижнее). Вот сам макрос. Я как -то выполнял команды foxpro перевода из basic, но подзабыл.
Подскажите, пожалуйста, как исполнить (переписать) данный макрос. Спасибо

Sub Ìàêðîñ1()

Range("C25:G25").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub