Aaron,
Assuming you are graphing lines, just format this particular series so that the line format is "None".
enjoy
Thanks, Please forgive my ignorance
This is better
Sub Pretty_Average()
If Range("j1") <> "" Then
Range("j1").Select
If Range("j2") <> "" Then
Range(Selection, Selection.End(xlDown)).Select
End If
ActiveWorkbook.Names.Add Name:="Money", RefersToR1C1:=Selection
Range("j1").Select
If Range("j2") <> "" Then
Selection.End(xlDown).Select
End If
Selection.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=average(Money)"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Selection.Font.Bold = False
ActiveWorkbook.Names("Money").Delete
Range("a1").Select
Else: Range("a1").Select
MsgBox prompt:="Looks like someone forgot the data...Show me the Data.", _
title:="Oops..."
End If
End Sub
Cheers!