Hi,

I have a short piece of code that finds the last entry in a row and then
inserts a new column. what should happen is that all formats from should be
duplicated, but for some reason cell borders are not being copied.

Set rCtr = Sheets("badges").Range("d1") ' add new name to badges
list
Do
If rCtr.Value < "" Then
Set rCtr = rCtr.Offset(0, 1)
Else
rCtr.EntireColumn.Insert ,_
CopyOrigin:=xlFormatFromLeftOrAbove
rCtr.Offset(0, -1) = FmNewBeaver.tbName
Exit Do
End If
Loop

Can anyone suggest why this is happening and how to fix it?

TIA

Dave