Simple macro (ClearContent) freezes Excel

[bokodilaszlo]

Hi,

I have this very simple macro:

Sheets("adjustment").Select
Range("B9:J25").Select
Application.CutCopyMode = False
Selection.ClearContents

Before I run this macro the following things are happening:
- datas are pasted into a different sheet
- these datas are copied into B9:J25

When the destination area contains data then this macro freezes Excel. If there are no data then it runs "smoothly" (It also runs when I put data manually into those cells)
What should I do to make this macro work?

Thanks,

Laszlo

[Peter T]

Is your code in a Worksheet module, eg activated by a Worksheet ActiveX
control. If so and you are using Excel97 change the TakeFocusOnClick
property of the CommandButton to False. In all versions, if
Sheets("adjustment") is not the sheet containing the commandbutton this line
will fail

Range("B9:J25").Select

unless you change it to
Sheets("adjustment").Range("B9:J25").Select

But if your macro is in a normal module not sure what the problem is, try

Sheets("Sheet2").Range("B9:J25").ClearContents

Regards,
Peter T

"bokodilaszlo" <[email protected]>
wrote in message
news:[email protected]...
>
> Hi,
>
> I have this very simple macro:
>
> Sheets("adjustment").Select
> Range("B9:J25").Select
> Application.CutCopyMode = False
> Selection.ClearContents
>
> Before I run this macro the following things are happening:
> - datas are pasted into a different sheet
> - these datas are copied into B9:J25
>
> When the destination area contains data then this macro freezes Excel.
> If there are no data then it runs "smoothly" (It also runs when I
> put data manually into those cells)
> What should I do to make this macro work?
>
> Thanks,
>
> Laszlo
>
>
> --
> bokodilaszlo
> ------------------------------------------------------------------------
> bokodilaszlo's Profile:
http://www.excelforum.com/member.php...o&userid=32250
> View this thread: http://www.excelforum.com/showthread...hreadid=520012
>

[bokodilaszlo]

Hi Peter,

Thanks for your help, I tried your suggestions but they didn't work.
I figured out that my macro is working until this line:

Selection.ClearContents

So I think the problem is in there somewhere. The funny thing is that I wrote the same macro for different cells in different sheets and it works there....

[bokodilaszlo]

I did some searching and I found that ClearContents doesn't play
nicely with merged cells. And I had merged cells in that area (B9:J25)!
So I modified that sheet to contain only single cells. And now the macro works fine