Insert all Images in a Folder and fit them to each page

Hi, I'm trying to insert all the images in folder E:\Image to sheet "intrang", the first image will be placed at A1, then the next image will be placed in the next page margin, i have this code but it's have error Object required at this line If topPosition + .Height > Sheets("intrang").PageSetup.PrintArea.Height Then
I've check page setup, nothing seem odd
Please, help me fix this

Please Login or Register  to view this content.

Administrative Note:

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are new here, I have done it for you this time.)

Is this a start?
Change references as required.

Please Login or Register  to view this content.

If you post in multiple forums, it is only polite to let us know so we don't have to waste time if someone in the other forum(s) has supplied you with an answer.