Worksheet Breakout (Excel 2003)

[braddy60]

Hi

This Macro is courtesy of the Allen Wyatt Website, it works just fine, with the exception that instead of it saving to the root directory of C: I would like to put the result in a directory for example
C:Breakout, I tried Const WBPath = "C:Breakout " but it does not work, any ideas please

Many Thanks

Braddy


Sub BreakItUp()
Dim sht As Worksheet
Dim NFName As String
Const WBPath = "C:"

For Each sht In ActiveWorkbook.Worksheets
sht.Copy
NFName = WBPath & sht.Name & ".xls"
ActiveWorkbook.SaveAs FileName:=NFName, _
FileFormat:=xlNormal, CreateBackup:=False
ActiveWindow.Close
Next
End Sub

[HansV]

Like in the original value, the path must end in a backslash , and there shouldn't be a space at the end:
<code>
Const WBPath = "C:Breakout"</code>

[braddy60]

Hi Hans

Thanks very much.

Braddy