By: Matt

Sub UnLinkChartData() If ActiveChart Is Nothing Then MsgBox "Please Select a Chart!", vbExclamation, "No Chart Selected" Else Dim ser As Series For Each ser In ActiveChart.SeriesCollection ser.XValues = ser.XValues ser.Values = ser.Values ser.Name = ser.Name Next ser End If End Sub