Dynamically re-name a Named Range

I need to create a macro that will re-name a Named Range of cell A1 to match the text in cell A1 of each Worksheet. Cell A1 on each worksheet is composed of an "if" formula, which will change between the two options based on if the corresponding box is checked on the Checklist Worksheet.

Here's my VB, which isn't working:
Sub Dynamic_Range()
Dim wkst As Worksheet
For Each wkst In ActiveWorkbook.Worksheets
wkst.Select
Range("a1").Name = Range("a1")
Next wkst
End Sub

I can get it to change the name of the named range to "addtopdf" but can't get it to change back to "check0", "check1" and "check2".

If you look at the attached, it should be much clearer.

Any help is greatly appreciated.

That didn't do the trick unfortunately. When I de-select the checkboxes on the first tab, and the cells in A1 on the other 3 tabs all change back to check1/2/3, their respective named ranges are still set to "addtopdf and not "check1" "check2" and "check3".

Any more takers out there? This one is seriously confounding me. Thanks.

That worked. Thank you, thank you, thank you!

I guess I spoke a little too soon. The code works great in the simple workbook I attached at the top of this thread, but when I put it into a more complex workbook with several other macros, I get a run-time error '1004' (application-defined or object defined). My goal was to use this code to define Named Ranges of cell A1 on each worksheet by selecting or de-selecting a checkbox on the main tab. Once I can do that, then I can use some code I have compiles all worksheets with a certain named range into a PDF. That code works well too. It just seems to be that when I put the code above in my PDF workbook, I start getting the error (only on the code above though, not the PDF creation code).

I thought it would be quite useful to just have a summary page where I could check boxes (one box per worksheet) and hit a button and then a PDF would be created that combines all the checked worksheets. If anyone has any further ideas, that would be great. If you need to see my other code, I can provide that. Thanks!

After some monkeying around, I was able to get it to work. The solution was to first delete all Named Ranges in the Workbook, and then use the modified code to set a Named Range for cell A1 on each worksheet to match the contents of the respective cell A1s. This is actually a pretty cool workbook now, allowing you to check a box for what portions you want included in a combined PDF file. If anyone is interested, I'll post the workbook with all the code in conjunction with eachother to be used.

Here is the modified code for the named ranges portion:

Sub Dynamic_Range()
Dim sh As Worksheet
Dim nm As Name

On Error Resume Next
For Each nm In ActiveWorkbook.Names
nm.Delete
Next
On Error GoTo 0

For Each sh In ActiveWorkbook.Worksheets
With sh
With .Range("a1")
.Name = .Range("a1").Value
End With
End With
Next sh

End Sub

Good point and thank you again for your help. My workbook doesn't need Named Ranges other than for selection of which worksheets to print to PDF so the code is specific to that. I'll clean it up a bit a post. My apologies for missing the code tags. As you can tell, I'm very new to VBA and the VBA community but will make sure to do that in the future.

As promised, here is a clean version of the file. I removed all of the normal information on the tabs and one could just put whatever they wanted on each tab obviously.

I use this to send our request for proposal documents to bidders. It comes in handy as I don't need all of the documents (each tab is its own document) most of the time.

Things to note:
- Leave cell A1 on each tab alone or the macros will error out.
- The VBA code for creating the PDF and email came from Ron de bruin, who has his code publicly available all over the internet, including the Microsoft help website
- I added some code (thanks for the help TMShucks) that allows for the cover page to just select which tabs to create a PDF from.
- There is a private sub on one of the tabs. I just used this as one of the rows needed to be autofit before producing the PDF since the content of the row changed sizes based on a reference to another sheet. If you want something like that, don't forget to you'll need to add an activate command in the Dynamic Range sub to make sure the page updates before PDF creation.

Thanks again to everyone who helped. I hope someone finds this file useful and can adapt it to make some repetitive task easier for them.