Ik ben iets aan het uittesten en dit werkt goed behalve dat telkens na het uitvoeren van onderstaande macro het VBA venster opent zonder vermelding van een fout. Wat moet ik wijzigen aan de code?
Macro:
Sub rijhoogte_bereik()
'
' rijhoogte_bereik Macro
' totale rijhoogte tabel aanpassen
'
' Sneltoets: Option+Cmd+z
'
Application.Goto Reference:="rijhoogte_bereik"
Dim r As Range
Set r = ActiveSheet.Range("omschrijving")
Application.Goto Reference:="aanpassen"
Selection.RowHeight = 200 - r.Height
Range("A1").Activate
End Sub
Macro:
Sub rijhoogte_bereik()
'
' rijhoogte_bereik Macro
' totale rijhoogte tabel aanpassen
'
' Sneltoets: Option+Cmd+z
'
Application.Goto Reference:="rijhoogte_bereik"
Dim r As Range
Set r = ActiveSheet.Range("omschrijving")
Application.Goto Reference:="aanpassen"
Selection.RowHeight = 200 - r.Height
Range("A1").Activate
End Sub