Using FSO to insert folder name into cell based on criteria being met

Question

I\'m having trouble putting the syntax together for this and I just started working with FSO in VBA, so please bear with me.

fsofol.name = test1 (this is correct)

Answer 1

Change

 fsoFol.Name.Copy **'error is here and states object required**
 firstRange.Offset(0, 5).PasteSpecial xlPasteValues

to

 firstRange.Offset(0, 5).Value = fsoFol.Name