I create new Folder.
Private Sub Workbook_Open()
Dim strMyFolder As String
strMyFolder = "C:\Spelade"
MkDir strMyFolder
End Sub
but next time Workbook_Open if Folder "C:\Spelade" exist
I want to Exit Sub
How?
Private Sub Workbook_Open()
If ####Folder "C:\Spelade" exist####
Exit Sub
Else
Dim strMyFolder As String
strMyFolder = "C:\Spelade"
MkDir strMyFolder
End If
End Sub
/dalla
--
Message posted from
http://www.ExcelForum.com