Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Cut and Paste #2, vb
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 |