Hi Paulsh,
Have you considered using autotext function? Alternatively, you could store both the initials and names in a single macro:
Code:
Sub AddSender()
Dim StrNames As Variant, StrInits As Variant, StrSender As String, i As Long
StrSender = InputBox("Enter Sender's Initials:", "SENDER")
If StrSender = "" Then Exit Sub
StrInits = Array("mc", "yz", "ar")
StrNames = Array("Michael Carlton", "Yasmin Zanders", "Andy Ryan")
For i = 0 To UBound(StrInits)
If StrInits(i) = StrSender Then
Selection.InsertAfter StrNames(i)
Exit For
End If
Next
End Sub