Looping a macro through all visible sheets?

[GlennJ]

I have a macro that does exactly what I need. I just need it to do the same thing to all sheets. Any help would be appreciated.

Sub Name_Sheet()

If Range("I14").Value = "" Then
    'Do nothing
Else
    ActiveSheet.Name = Range("I14").Value
End If

End Sub

 

[Fluff]

What happens if you remove the Iferror?

 

[GlennJ]

It runs the same both ways

 

[Fluff]

But do you get anything in the cell if you remove the iferror?

 

[GlennJ]

Yes, the exact same thing. I don't think it would make any difference which way it is now. This file has been changed many times as head office is trying to do what they can to keep revenue flowing during Covid. It probably made a difference on the version from a year ago. This is the last thing I need to get solved.
Can the error checker be programed to just click OK for each msg box? It would do what I need

 

[GlennJ]

They're closing the building now (Canada). I'll check back tomorrow.
Thanks again for all your help

 

[Fluff]

When the message box appears what does it show? Do you have the current sheet name & the new sheet name?

 

[GlennJ]

When the message box appears what does it show? Do you have the current sheet name & the new sheet name?

Just the current sheet name.

 

[Fluff]

In that case the cell has a space or some other "hidden" character & so is not ""

 

[GlennJ]

In that case the cell has a space or some other "hidden" character & so is not ""

I found it. The first and last name come to me in two different cells. To combine them into one, I was using =T3&" "&U3 and this was leaving a space in the cell. I found that if I use =TEXTJOIN(" ",,T3,U3), the space doesn't get in the way. Now your original Marco runs perfect.
I would never have found that without you narrowing it down for me.
Big thanks FLUFF for all your help and patience. I wish I could do more that click a Solved button.

Cheers

 

[Fluff]

Glad you sorted it & thanks for the feedback.