I forgot to include in my other message, that what I am trying to do is the
range of B8 through B57. Will not go higher then row 8, but I could go lower
if the need is there.

"caldog" wrote:

I have code that clears certain data, when I click on a button, the coding is
"Selection.Delete Shift:=xlUp".

I then want to be be able to re-establish my borders, my word font type, and
word font size, by way of some VBA coding.

I have struggled with the For-Next Loop coding, but alas all of the cells
remain blank after going through through the For-Next routine.

I'm sure there is a simple coding for this, but I sure have found it as of
yet.

Thanks for reading