you can give this a try

Sub test()
Dim currow As Long
currow = ActiveCell.Row

With Range("A" & currow & ":T" & currow).Borders(xlEdgeBottom)
.Weight = xlThin
End With

With Range("A" & currow & ":T" & currow).Borders(xlEdgeTop)
.Weight = xlThin
End With

With Range("A" & currow & ":T" & currow).Borders(xlEdgeRight)
.Weight = xlThin
End With

With Range("A" & currow & ":T" & currow).Borders(xlEdgeLeft)
.Weight = xlThin
End With

With Range("A" & currow & ":T" & currow).Borders(xlInsideVertical)
.Weight = xlThin
End With
End Sub


--


Gary


"Patrick Simonds" wrote in message
...
I need a piece of code to insert into a routine. What I need is for the
code to place a boarder around each cell (column A through T) of the
current row. The curser will not always be in the same cell when the code
is run.