For some reason when I run this macro in Excel 2003 it works just fine. But
when I try to run it in Excel 2007 I get an Error indicated below. Anyone
have any ideas why?

Sub ClearRange ()

'clears all borders
With Range("B" & ActiveCell.Row, "H" & ActiveCell.Row + 30)
Error => .Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

End Sub

Works here. Worksheet isn't protected, etc.?

--
Jim
"RyanH" <(E-Mail Removed)> wrote in message
news:4C2061DF-1138-4105-8F72-(E-Mail Removed)...
| For some reason when I run this macro in Excel 2003 it works just fine.
But
| when I try to run it in Excel 2007 I get an Error indicated below. Anyone
| have any ideas why?
|
| Sub ClearRange ()
|
| 'clears all borders
| With Range("B" & ActiveCell.Row, "H" & ActiveCell.Row + 30)
| Error => .Borders(xlDiagonalDown).LineStyle = xlNone
| .Borders(xlDiagonalUp).LineStyle = xlNone
| .Borders(xlEdgeLeft).LineStyle = xlNone
| .Borders(xlEdgeTop).LineStyle = xlNone
| .Borders(xlEdgeBottom).LineStyle = xlNone
| .Borders(xlEdgeRight).LineStyle = xlNone
| .Borders(xlInsideVertical).LineStyle = xlNone
| .Borders(xlInsideHorizontal).LineStyle = xlNone
| End With
|
| End Sub

Your macro worked just fine for me.
Try it with a new workbook
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"RyanH" <(E-Mail Removed)> wrote in message
news:4C2061DF-1138-4105-8F72-(E-Mail Removed)...
> For some reason when I run this macro in Excel 2003 it works just fine.
> But
> when I try to run it in Excel 2007 I get an Error indicated below. Anyone
> have any ideas why?
>
> Sub ClearRange ()
>
> 'clears all borders
> With Range("B" & ActiveCell.Row, "H" & ActiveCell.Row + 30)
> Error => .Borders(xlDiagonalDown).LineStyle = xlNone
> .Borders(xlDiagonalUp).LineStyle = xlNone
> .Borders(xlEdgeLeft).LineStyle = xlNone
> .Borders(xlEdgeTop).LineStyle = xlNone
> .Borders(xlEdgeBottom).LineStyle = xlNone
> .Borders(xlEdgeRight).LineStyle = xlNone
> .Borders(xlInsideVertical).LineStyle = xlNone
> .Borders(xlInsideHorizontal).LineStyle = xlNone
> End With
>
> End Sub