Excel recorded macro to VBA to call from a different software

Hello Junsh-

Please try the below code.  See attached workbook for reference:

Note: I have named the charts in order... myCht1, myCht2, myCht3 .....

Sub WorksheetLoop2()

   ' Declare Current as a worksheet object variable.
   Dim Current As Worksheet
   Dim intLp As Integer

   ' Loop through all of the worksheets in the active workbook.
   For Each Current In Worksheets
         
        'ActiveSheet.Shapes.Range("myCht" & intLp + 1).Select
        Current.ChartObjects("myCht" & intLp + 1).Activate
        With ActiveChart
            .ChartType = xlColumnClustered
            .SetSourceData Source:=Range("B5:M5")
            .SeriesCollection(1).XValues = "=Current!B$1:$M$2"
            .SeriesCollection(1).Select
            .PlotArea.Select
            .SeriesCollection(1).Select
            .SeriesCollection(1).ApplyDataLabels
            .SeriesCollection(1).DataLabels.Select
            .SeriesCollection(1).Select
        End With
        intLp = intLp + 1
      'MsgBox Current.Name
   Next

End Sub