Sub Name_Change()
'
' Name_Change Macro
'

'
    Dim OldName As String
    Dim NewName As String
    OldName = InputBox("What name do you want to replace?", _
        "Who do you want to replace?", "Enter Name")

    If OldName = "Enter Name" Or _
    OldName = "" Then
    Exit Sub
    End If
    
    NewName = InputBox("What is the new name?", _
        "Who is the new person?", "Enter Name")
    If NewName = "Enter Name" Or _
    NewName = "" Then
    Exit Sub
    End If
    
    i = MsgBox("Replace " & OldName & " with " & NewName & "?", vbOK)
    Select Case i
        Case vbOK
            j = MsgBox("Are you sure?", vbOKCancel)
            Case vbCancel
                Exit Sub
        Case vbCancel
            Exit Sub
    End Select
    
    Sheets(Array("Monday Totals", "Tuesday Totals", "Wednesday Totals", _
        "Thursday Totals", "Friday Totals", "Saturday Totals", "Weekly Totals")).Select
    Sheets("Monday Totals").Activate
    Cells.Select
    Selection.Replace What:=OldName, Replacement:=NewName, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("Weekly Totals").Select
    Range("A1").Select
End Sub