Add cell value to folder name

[leemcder]

Thanks Georgiboy, so I replaced DestFoldFull = DestFold & rCell & "" with DestFoldFull = DestFold & rCell & rCell.Offset(, 1) & "" this gives me a runtime error '76' path not found. Debug refers to MkDir DestFoldFull

Thank you

Thank you for taking the time to reply. I have tried this and the folder name has not changed, apologies if I'm missing something, should I be changing anything else?