runtime error when running recorded macro

Hello,

I recorded a macro, with the last step being dragging a chart to expand it. When running it I got the runtime error 2147024809 'the item with the specified name wasn't found'

I did some digging and believe this is due to the naming of 'chart 1', but haven't been able to find a fix. Problem should be the 2 lines below:

ActiveSheet.Shapes("Chart 1").ScaleWidth 2.6588541667, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 1").ScaleHeight 2.575, msoFalse, msoScaleFromTopLeft


If anyone has any idea, please let me know.

So "publish" on the forum this macro, for inspection

Sure, here it is.

Sub help()
'
' help Macro
'

'
Range("C2").Select
ActiveCell.FormulaR1C1 = "1"
Range("C3").Select
ActiveCell.FormulaR1C1 = "2"
Range("C4").Select
ActiveCell.FormulaR1C1 = "3"
Range("C5").Select
ActiveCell.FormulaR1C1 = "4"
Range("C2:C5").Select
Selection.AutoFill Destination:=Range("C2:C34"), Type:=xlFillDefault
Range("C2:C34").Select
Range("D6").Select
ActiveCell.FormulaR1C1 = "=CORREL(R[-4]C[-2]:RC[-2],R[-4]C[-1]:RC[-1])"
Range("D6").Select
Selection.AutoFill Destination:=Range("D6:D34"), Type:=xlFillDefault
Range("D6:D34").Select
Range("F2").Select
ActiveCell.FormulaR1C1 = "-1"
Range("F3").Select
ActiveCell.FormulaR1C1 = "-0.95"
Range("F4").Select
ActiveCell.FormulaR1C1 = "-0.9"
Range("F2:F4").Select
Selection.AutoFill Destination:=Range("F2:F43"), Type:=xlFillDefault
Range("F2:F43").Select
ActiveWindow.SmallScroll Down:=-69
Application.Run "ATPVBAEN.XLAM!Histogram", ActiveSheet.Range("$D$6:$D$34") _
, ActiveSheet.Range("$I$2"), ActiveSheet.Range("$F$2:$F$43"), False, False _
, True, False
ActiveSheet.Shapes("Chart 1").ScaleWidth 2.6588541667, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 1").ScaleHeight 2.575, msoFalse, msoScaleFromTopLeft
End Sub

There must be numerical data in the 'B' column before running the macro, e.g.:
(without them, a histogram will not be created)

Please Login or Register  to view this content.

Originally Posted by AlphaFrog

Try this...

Please Login or Register  to view this content.

Hi AlphaFrog, thank you very much. It worked. Rep added.