Worksheet Naming

I'd like to preface the post with big thanks ahead of time. You guys are great for using your own spare time to help people out I've been reading for a while to get help on various Excel problems, and I've learned a lot about macros and VBA. However, I've run into a problem that I can't seem to resolve, so I decided to ask y'all, since no problems seems unsolvable on this forum.

Long story short, I've created a macro which creates a chart from a worksheet of data. The macro creates the chart on its own chartsheet, (temporarily) naming it "2". The worksheet already has name "NAME Data" and I'd like the chartsheet to be named "NAME" (excuse my lack of grammar, I didn't want punctuation to confuse the quotation marks and such). So at the end of my macro code in VBA, I tried to do the following:

ActiveSheet.Next.Select
Sheets("2").Name = ActiveSheet.Name.Parse
ActiveSheet.Previous.Select
Application.ScreenUpdating = True
End Sub

I know that Parse is obviously not correct, but I really couldn't think of the correct method for this operation, and that was the closest to what I could think of. Basically, I just want the created chartsheet's name to be the name of the worksheet it was created from without the " Data" at the end of that worksheet's name. I apologize, but I absolutely cannot upload the excel file, for it has sensitive information; I may be able to copy/paste additional code from VBA if needed. I am extremely willing to describe the situation better, and I welcome all help. Thank you so much in advance!

Thank you very much!