Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" And UCase(Target) = "CHANGE" Then
Sheet1.Name = "Josephine"
End If
If Target.Address = "$C$5" And UCase(Target) = "CHANGE" Then
Sheet1.Name = "Sheet1"
End If
End Sub