Untitled

      Sub Macro6()
      Dim X
      X = ActiveSheet.Name
      Charts.Add
      ActiveChart.ChartType = xlXYScatterLines
      ActiveChart.SeriesCollection(1).XValues = Sheets("Sheet1").Range("A2:A8")
     ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("D1:D8")
      ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Mike Jones At Bats"
      With ActiveChart
              .HasTitle = True
              .ChartTitle.Characters.Text = "Mike Jones At Bats"
              .Axes(xlCategory, xlPrimary).HasTitle = True
              .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Year"
              .Axes(xlValue, xlPrimary).HasTitle = True
              .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "At Bats"
          End With
          With ActiveChart
              .HasAxis(xlCategory, xlPrimary) = True
              .HasAxis(xlValue, xlPrimary) = True
          End With
          ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
          ActiveChart.HasLegend = False
      End Sub