Opslaan middels Macro

[Phill]

Ik heb een excel bestand gemaakt en middels een macro wil ik een werkblad opslaan in een andere map.
Ik heb het zover gered dat de map wordt aangemaakt, maar als ik het bestand in deze map wil opslaan, krijg ik constant een foutmelding.

Onderstaande het gedeelte van de macro

MkDir "d:\udata\gebruiker\CET\BGS\" & [B2] & " " & [B3]
ChDir "d:\udata\gebruiker\CET\BGS\" & [B2] & " " & [B3]
Bestandsnaam = "d:\udata\gebruiker\CET\BGS\" & [B2] & " " & [B3] \ OverzichtBGS.xls
ActiveSheet.SaveAs Bestandsnaam

Ik kom er helaas niet zelf uit.

 

[HSV]

Zolang onderstaand maar bestaat.

udata\gebruiker\CET\BGS\

Er wordt nl. maar een map aangemaakt van de samenvoeging van B2 & B3.

Dim sFullName As String
   sFullName = "c:\udata\gebruiker\CET\BGS\" & [B2] & " " & [B3]
   If Dir(sFullName, vbDirectory) = vbNullString Then MkDir sFullName
   ThisWorkbook.SaveAs sFullName & "\OverzichtBGS.xls"

 

[edmoor]

...krijg ik constant een foutmelding.

En WEER wordt de betreffende foutmelding niet vermeld.

 

[Phill]

Het werkt! Geweldig.

Is mijn zaterdagavond weer geslaagd!

Bedankt!