Variable Folder Name Based on Excel Cell Value

Hi Everyone,

Just need a bit of help, not exactly the best with VB.

I've got the below code to print out everything in a specified target folder, which works quite nicely.

However, I want to change this so the main path stays the same, but the end folder is based on a cell value in Excel

Cell value would eventually be a number.

E.g. TargetFolder = "C:\Stuff\CELLVALUE"

Any ideas/guides would be great.

Sub Test1()

TargetFolder = "C:\stuff\10001"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TargetFolder)
Set colItems = objFolder.Items
For Each objItem In colItems
objItem.InvokeVerbEx ("Print")
Next

End Sub