Macro werkt wel in 2013 maar niet in 2010

[Pieter671]

Ik heb en klein stukje code in mijn spreadsheet.
Het 'opslaan als' van het bestand, met omschrijving en kenmerk.

In Excel 2013 werkt dit prima, in Excel 2010 functioneert de macro niet.
(blijft hangen, doet niets.)

Sub OPSLAAN_UITGANGSPUNTEN()

        Omschrijving = Worksheets("Tabblad1").Range("G6")
        Kenmerk = Worksheets("Tabblad1").Range("G7")
        
        Bestandsnaam = "UITGANGSPUNTEN - " & Kenmerk & " - " & Omschrijving
        Application.Dialogs(xlDialogSaveAs).Show Bestandsnaam
        
        Worksheets("Tabblad1").Range("G6").Select
        
End Sub

1. Vraagt Excel 2010 een ander soort "Application.Dialogs(xlDialogSaveAs).Show" ?

2. Is er ook VBA code om de gebruikte Excel versie uit te lezen?

Pieter

 

[edmoor]

Het werkt ook goed in Office 2007 en 2016 en verwacht ik dus ook in 2010.
Loop de code eens door met F8 en laat weten op welke regel het probleem zich voordoet.

 

[VenA]

De code werkt prima in XL-2010. (32 bit)