Object:
Save BarChart worksheet in workbook 1 on Cdrive to Wdrive. I want only the BarChart worksheet to copy to workbook 1 on Wdrive.

After making changes to BarChart Worksheet, I want to save it to another drive. The code as demonstrated below does that, but copies all worksheets. how do I save and copy only the BarChart sheet to the other drive? Help.

The code below is the code I am using. Can you fix it so it does what it is supposed. I cannot figure out

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Saves the current file to a backup folder and the default folder
'Note that any backup is overwritten
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:="W:\Mental Health\MHTC\MedDir_do_not_delete\leamonwebtest.xls" & _
ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub