Sub UnprotectChart() Dim myChart As Chart Set myChart = ThisWorkbook.Sheets("Protected Chart") myChart.Unprotect "Excel2003" myChart.ProtectData = False myChart.ProtectGoalSeek = False myChart.ProtectSelection = False End Sub