Hej hej

Jo det borde gå:

Sub tryautoscale()

    Dim ws As Worksheet: Set ws = ActiveSheet

    Dim mChart As ChartObject    

    For Each mChart In ws.ChartObjects

        mChart.Activate

        ActiveChart.Axes(xlValue).MinimumScale = 3

      ActiveChart.Axes(xlValue).MaximumScale = 6

    Next mChart

End Sub