Automatically Rename a Worksheet

[Manny74]

Hello, my worksheet is named Sheet1..
I know how to either double click on the worksheet to rename it or right click on the worksheet...
I tried to create a Macro so that based on the data I have, the worksheet automatically is named E MEMORIAL based on cell B3, but didn't work...Or maybe I am doing it wrong...
Any suggestions on how I can have Sheet1 change to E MEMORIAL once E MEMORIAL has been entered in B3?

1	B	C	D	E	F
2	FACILITY	UNIT	PNAME	ID	DISCHARGE
3	E MEMORIAL	3N	JOHN DOE	999	HOME
4	E MEMORIAL	3N	JANE DOE	444	REHAB
5	E MEMORIAL	3N	JOSH DOE	111	SNF

 

[VBE313]

Paste this into the Sheet1 (Sheet1) Microsoft Excel Objects part

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" And Target.Value = "E MEMORIAL" Then
        Name = Target.Value
    End If
End Sub