Run-time error 438

[zinah]

Hi,

I have a macro that build PowerPoint presentation from excel. And workbook that has several tabs and their names as below:

"It would take", "Themes_2", "Themes_1". When I tried to build the slides this is what happened:

"It would take" tab successfully built into .pptx but the rest of the tabs didn't work as I got run-time error 438. can you check my macro below and advise what should I do to fix?


Sub goDOit()
Sheets("It would take").Activate
Call build_it_in_PPTX ------ this worked


Sheets("Themes_2").Activate
Call Sheets("Themes_2").build_it_in_PPTX ----- this didn't work


Sheets("Themes_1").Activate
Call Sheets("Themes_1").build_it_in_PPTX ----- this didn't work


End Sub




Thank you!

 

[DanteAmor]

The error is because in the code of the sheet "Themes_2" you must have a macro with the name "build_it_in_PPTX".
If you only have a macro with the name "build_it_in_PPTX" then you should put like this:

Sheets("Themes_2").Activate
Call build_it_in_PPTX

I do not know what you have in the build_it_in_PPTX macro, but I guess it works with the active sheet.

 

[zinah]

It worked perfectly GREAT! Thanks a million for your usual support!

 

[DanteAmor]

You're welcome & thanks for the feedback