Macro to create and format pdfs from drawing with prompt for file location and name... erroring out as object doesn't support this property or method. 

I've continuously run into this issue trying to code this function... while it continues to fail with different applications... I'm at a loss and Chat Gpt keeps going in circles... any assistance?

Here is the code:

Sub main()

   ' Declare variables
Dim swApp