BorderAround method failure

The following code fails at the BorderAround line. What am I missing?

With Range(Cells(6, 1), Cells(7, 2))
.BorderAround Weight:=xlMedium
.Borders.Item(xlInsideHorizontal).LineStyle = xlContinuous
.Borders.Item(xlInsideHorizontal).Weight = xlThin
End With

I know this is simple, but from what I read it should work.

Thanks,
John