vba code simplifacation

[demahom08]

HI every one

please help me to simplify this code

Please Login or Register  to view this content.

[HaHoBe]

Hi, demahom08,

maybe have a look at this for a start:

Please Login or Register  to view this content.

Ciao,
Holger

[demahom08]

HI Holger
the calculate don't work
and the special paste don't work for all sheets

[HaHoBe]

Hi, demahom08,

regarding Calculate - maybe omitt the Application and use the command the way you have done in the opening post.

Regarding pastespecial: what doesnīt work or what do you expect the code to do? I only gave an example for one worksheet - in your sample it always will be pasted into Sheets("Power Point").

Maybe consider attaching a sample workbook to have a look at.

Ciao,
Holger

[demahom08]

to have a result a had to put this

i don't know why if i put rage ("b")it does't work i had to put range ("a")

Please Login or Register  to view this content.

[HaHoBe]

Hi,

i don't know why if i put rage ("b")it does't work i had to put range ("a")

Not so understandable for anybody without looking at the workbook.

Please mind that you would have to close the With-Stantement at the end or the next will start with the previus With Statement cell as the starting cell and work from that on. Maybe that would explain why you couldnīt use any Range starting with B as that would expand to Column C in the worksheet.

You code would be need to look like

Please Login or Register  to view this content.

Maybe it should look like this instead

Please Login or Register  to view this content.

What still missing is to make the sheets hidden again.

Ciao,
Holger

[demahom08]

HI Holger it work with the secend one
for the sheets hidden i add it
but for this where i i have to put it

Please Login or Register  to view this content.

[HaHoBe]

Hi, demahom08,

assuming that the action should take place on the sheet being pasted into the end of the macro may look like this:

Please Login or Register  to view this content.

Ciao,
Holger

[demahom08]

you are the best Holger
thank you