You can't use dim twice on the same line. Try either of the two following

dim cou as integer
Dim FolderStr as string
dim FileSys as variant

or

dim cou as integer, FolderStr as string, FileSys
--
HTH...

Jim Thomlinson


"Jim15" wrote:

>
> I am getting a syntax and compile error on the dim cou .... line. Any
> suggestions?
>
> Thanks,
>
> Jim
>
> Sub createfolders()
> '
> '
> dim cou as integer,Dim FolderStr as string, FileSys
> For cou = 1 To ActiveSheet.UsedRange.Rows.Count
> FolderStr = Format(Trim(Str(cou)), "00#") + "_" +
> ActiveSheet.Cells(cou, 1)
> Set FileSys = CreateObject("Scripting.FileSystemObject")
> FileSys.createfolder C:\ + RESERVES
> Next
> End Sub
>
>
> --
> Jim15
> ------------------------------------------------------------------------
> Jim15's Profile: http://www.excelforum.com/member.php...o&userid=26300
> View this thread: http://www.excelforum.com/showthread...hreadid=526198
>
>