Knop "opslaan als" werkt niet meer na conversie 2007 naar 2016

[Martijn1964]

Beste,

In een workbook onderstaande opdracht achter een knop gemaakt, om bestand op een bepaalde locatie met bepaalde naam op te slaan:

Private Sub CommandButton2_Click()
'
' Bestand opslaan als
'
Dim Bestandsnaam As String
Bestandsnaam = CStr(Range("H42").Value) & CStr(Range("I10").Value) & " " & CStr(Range("AM11").Value) & " " & CStr(Range("X10").Value) & " " & CStr(Range("AM10").Value) & ".xlsm"
ThisWorkbook.SaveAs Bestandsnaam


Nu overgegaan naar versie 2016 en werkt deze knop niet meer. Krijg fout melding.
fout opsporing geeft aan dat het in de laatste regel zit!!!
Wat moet er aangepast worden om dit weer te laten werken.

 

[VenA]

Welke foutmelding? En wat staat er zoal in de verschillende cellen? Dus plaats een voorbeeldbestand.