Compile Error while checking if worksheet exists....

Hello,

I have a slight problem. Whenever I run the code below I get an error Message: "Compile Error ByRef argument type mismatch" And the Sheet9 (marked in red here) is marked yellow in the debugging mode.

Obviously my code there is not valid but how to modify it so that it will work?

Just in case it is not Clear what I want to achieve is simply that I want the Macro to check IF there is a Sheet9 (IF it exists in the WorkBook) and if YES then add it as a PDF attachement as well. If it does NOT exists then go on With the macro.

Please Login or Register  to view this content.

Try changing your SaveAsPDF sub to:

Please Login or Register  to view this content.

Ok tried that but now I get the following error:

Runtime error 429;
ActiveX Component can´t create Object

And the following part of the code is then highlighted yellow in the debugger:

Please Login or Register  to view this content.

Not exactly sure what's the problem as I don't use Outlook, but Google search results showed this.

Oh I´m sorry. I did it on the wrong computer where there is no Outlook installed....hahahaha


I corrected it now and used my CORRECT computer. Following Your advise by adding ByVal the Macro DOES run without a any errors, BUT by adding the ByVal the PDF attachements are NOT added


I can see the pop up publishing dialog that the PDF´s are beeing created like always but when done the attachements are not added.


I´m guessing that there should be some more modification necessary in the code when ByVal is added in the Sub??

Just noticed that you are actually setting the path name in the SaveAsPDF sub, so try changing to this instead:

Please Login or Register  to view this content.

Thanks, that fixed the problem of this post

I ran into another Challenge that I don´t like, but will post in a New post.

The IF Sheetx.Visible......statements do not work like i´d hoped.

Will need to hide unneccessary sheets befor the .attachements.add and then unhide them again afterwords just before End Sub instead i Guess.


But you solved this problem though so thank you for that man