yea- i adapted that and got it working right. thanks!



Don Guillett wrote:
I'm not sure this is what you really want but test with a cell named "bal"
before changing.

Sub copyrangeandname()
With Range("bal")
.Offset(1).Insert
i = 1
On Error GoTo nameit
mn = ThisWorkbook.Names("bal" & i).Name
mn = (Err.Number = 0)
i = i + 1
nameit:
.Offset(1).Name = "bal" & i
End With
End Sub

I have the following start to some code. I want to insert a copy of the
range baluster_blank above it and name it baluster1, unless that name is
[quoted text clipped - 7 lines]

Where should i go from here? THanks.

--
Message posted via http://www.officekb.com