Macro Command to Go to Next Layer

[KC10]

I am writing a macro where I select a layer, then save the report, and want to then go to the next layer, and save the report as a different name.

I am having to either HideSelected or DeleteSelected to go to the next level but would like to find a better way.

PPRep1.Layers.Item(1).Select
PPRep1.DeleteSelected
PPRep1.SaveAs "e:\1Test\graph2.ppr"

Any Suggestions. Thanks in advance.

 

[drlex]

KC10,
would not Layers & Remove work?
"objPPRep.Layers(1).Remove"
should take out the first layer
HTH
lex

 

[KC10]

Yes, Remove works but I'd rather not remove the layers. I just want to go to the next layer.

 

[drlex]

So, would ".activate" be no good either?
lex

 

[KC10]

.Activate did not work either.
I found HideSelected works so I'll probably go that way.
Thanks for all your help. But if anyone does know how to do this I would be interested in your solution.
Thanks again.