Hi all,
I have been reading all posts but cant come across the answer.
I am using this code:
Sub createFolders()
Dim fpath As String
Dim i, xc As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
xc = Range("XFD" & i).End(x1ToLeft).Column
If xc = 1 Then
fpath =...