CAN ANYONE HELP ME?
IN THE FOLLWING EXCEL MACRO, I WANT THE MACRO TO CHECK IF THERE IS ALREADY A SHEET BY THE NAME OF "AHTBARCHART" IF THERE IS THEN IT SHOULD DISPLAY A POPUP WINDOW "CHART ALREADY EXISTS" ELSE IT SHOULD GO AHEAD AND CREATE A CHART AS MENTIONED BELOW.
VB Code:
Sub AHTBARCHART() ' ' AHTBARCHART Macro ' ' Range("D3:D13,F3:F13").Select Range("F3").Activate Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("JANUARY").Range("D3:D13,F3:F13"), _ PlotBy:=xlColumns [U]ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="AHTBARCHART"[/U] With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "AVERAGE AHT PER TEAM LEADER" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "TEAM LEADER" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "AVERAGE AHT" End With Sheets("JANUARY").Select Range("A1").Select Sheets("AHTBARCHART").Select End Sub




Reply With Quote