Rename worksheet by name in cell, if blank use another cell

[GlennJ]

Hi all,
Macro help---I'm trying to rename a worksheet according to a persons name in a cell, but if that cell is black I need it to the sheet according to another cell.

So in this case, the sheet name would be A6 "John Doe", but if cell A6 is blank then sheet name needs to be A2 "Jane Doe"

Thanks

 

[My Aswer Is This]

Try this:

Sub Name_Sheet()
'Modified  6/1/2021  1:59:49 PM  EDT

If Range("A6").Value = "" Then
    ActiveSheet.Name = Range("A2").Value
Else
    ActiveSheet.Name = Range("A6").Value
End If
End Sub

 

[GlennJ]

Thank you that does exactly what I asked, but I should of told you that the sheet already has the name in cell A2.
So I should have said, if cell A6 is blank, then do nothing, otherwise change name to A6. Sorry my bad!

 

[My Aswer Is This]

So why are we even talking about A2.
Your now saying if A6 has a value rename sheet. With the value in A6
If A6 is blank do nothing. Is that correct?

 

[My Aswer Is This]

Try this:

Sub Name_Sheet()
'Modified  6/1/2021  3:24:14 PM  EDT

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

 

[GlennJ]

Perfect. Thank you

 

[My Aswer Is This]

Perfect. Thank you

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.