This has now been resolved thanks David.

Yes the folder  had been created but with a bit  more searching other
examples I found that I needed ChDir command  with FilePath string
variable.

However I do now have another minor problem  but I will post as new
query anyway but as it might take a few minutes to get through here
goes.

I want to delete unwanted sheets that have nothing in them & I can do
it like this

'For Each myWorksheet In basebook.Worksheets
'If myWorksheet.Name <> sN Then
' myWorksheet.Delete
'End If
'Next myWorksheet
However I get the message "All data will be lost. Do I want to
delete?"

As I have two sheets that I need to delete I want to add  the code  to
automatically delete these 2 sheets.

What is the code?