How to undo macro as a single command

I use several macros in corel draw it saves lot of time. Actually I am novice for VB, but I use cut paste method and achieve what I want by trying to understand the codes, It really works for me.

Here is my question. After executing a macro, when I use undo command, (using 'Ctrl Z') -- I go back only one step and not all actions of macros are undone. How can I make corel draw treat the whole macro as one single command.

So when I press Ctrl Z whole macro is undone.

[Sablesword]

You can do that by ActiveDocument.BeginCommandGroup e.g.

ActiveDocument.BeginCommandGroup "my crunchy macro"

[stuff in the macro you want to undo in one swell foop here]

ActiveDocument.EndCommandGroup

where "my crunchy macro" is what shows up in the Edit menu as

Edit
-> Undo my crunchy macro
-> Redo my crunchy macro

Hope this helps.

[shelbym]

I would just add to this that it is important to include an error handler, so your undo stack does not become corrupt if something goes wrong. So something like this works great:

Sub Test()

ActiveDocument.BeginCommandGroup "My Command"

On Error Goto ErrHandler
' Place your code here

ExitSub:
ActiveDocument.EndCommandGroup
Exit Sub

ErrHandler:
MsgBox "Error occured: " & Err.Description
Resume ExitSub

End Sub

I know it is a little more code, but if there are problems, it is nice to catch them.

Shelby

Thanks both of you it works great. Priviously it use to take away my ability to undo 100 times.

Thanks once again