G
Guest
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
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