Rename Worksheet Tabs to Text Contents in Cell G30

I'm trying to rename several tabs in a workbook to the text in cell G30. This code does not work:

Sub RenameTabsToNames()

For i = 1 To Sheets.Count
If Worksheets(i).Range("G30").Value <> "" Then Sheets(i).Name = Worksheets(i).Range("G30").Value Else: Sheets(i).Name = "RENAME MANUALLY"
Next
End Sub

This part is highlighted when the debugger runs:
Sheets(i).Name = Worksheets(i).Range("G30").Value Else

Thank you for any help!

Thanks... but I received a similar error on the same section of code. The names in cell G30 all are unique.

Any other ideas? The entire code may be completely off.

Meredith,

Give this a try:

Please Login or Register  to view this content.

Hope that helps,
~tigeravatar

Running the new code, the error says:

Run-time error '1004':

Method 'Name' of object'_Worksheet failed

Highlighted was this:
wsA.Name = wsA.[G30].Value

Thank you for the help so far.

PS The Contents in Cell G30 are again all unique and normal character words.

Meredith,

The code runs with no errors for me. Are you able to upload a sample workbook that is experiencing the problem so I can see what's going on?

~tigeravatar

Thanks for the code! I got it to work... it was a problem with some of the sheets being locked first.