Set image as background from folder based on value

[Soraka]

Hello,
I already have a working set of subs to display an image in a folder and it randomizes a new image every few seconds.

But what I would like is to stop this sub when a specific cell has a value, and that value is retrieved in VBA to display images from a folder .
For example, I have different flowers, with images in their own folders.
When A1 displays the name of a flower, I would like to vlookup the path written in a table and it uses it to display the images of that flower in its folder.

I will provide what I already have working, which shows all the images in a single folder.

Please Login or Register  to view this content.

It is not me who wrote this code, and I vaguely understand it. What I am asking is that if someone understands it, how can I use it to make a simple sub to display images by interval of 2sec like here, from a specific folder, that is retrieved in a table with the path written when A1 displays the name of that folder.

I tried this, but it's not working (although no error):

Please Login or Register  to view this content.

[Soraka]

I am making a little progress
I created a Public As Boolean to pause and resume the main background images.
Now I need to figure out the rest

Here is what I did so far:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

So whenever I open the workbook, it will shuffle all the images from the big folder, because the mainbg is set as True and it opens the 2 subs upon opening the excel file.

But then I have this function in a cell:
=IF(W4="*Yes*",BackGround(),"")

Whenever W4 displays Yes, I want the 2 subs to stop shuffling through the big folder with all the images, and I want images from another folder to be displayed randomly.
So I managed to stop the shuffling of the images of the big folder by starting this sub here:

Please Login or Register  to view this content.

I now need to figure out how to display on loop at random images from a folder (which the path is written in a cell in the spreadsheet).

[AliGW]

Please change QUOTE tags to CODE tags. Thank you.

[Soraka]

I did not know, I changed them to CODE now.

I tried to copy paste both Sub file_names() + Sub Macro1() (renamed into Background() and Macro10()).
Background() calls Macro10().
I thought it would work by changing the GetFolder(pth) so that it picks up the value (which is the path of the folder with different pictures) from a cell.
It worked but it still displays the images from the big folder, it doesn't display the images of the path it is supposed to find in the cell.
I really have no idea how to do it.