Call Macro from Input Box String

macropod · #2 11-01-2011, 03:15 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro VBA "Save as" with bookmarks in file name string	Dom37	Word VBA	2	10-31-2011 03:28 AM
Call Excel from Word	donlincolnmsof	Word	0	10-14-2011 05:02 PM
Help with VBA macro - Variable input	sc30317	Excel Programming	0	08-31-2011 01:00 PM
Macro or Function to know wether a string is included in a text	Eduardo	Word VBA	5	06-15-2009 01:55 AM
How do I call/execute an Excel macro from Access 2003	KramerJ	Excel	2	05-11-2009 11:33 AM