Hi,

Last week, Mr. Don Guillett provided me with this formula to cut a Named
Range and paste the Named Range one cell/row below.

It works perfectly when I run the macro (in another sheet or workbook).
However, when I include the two macro commands with other commands, IT DOES
NOT WORK the:

"Range("thsrng").Cut Destination:=Range("thsrng").Cells(2, 1)"
is highlighted and the program freezes.

I tried to use "CutPaste" instead of inserting the two commands but the
result is the same.

What is wrong? Please help.


Sub CutPaste()
lr = Application.CountA(Range("thsrng")) 'assumes no blanks
Range("thsrng").Cut Destination:=Range("thsrng").Cells(2, 1)
End Sub