Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #2  
Old 11-01-2011, 03:15 AM
macropod's Avatar
macropod macropod is online now Call Macro from Input Box String Windows 7 64bit Call Macro from Input Box String Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,366
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
 



Similar Threads
Thread Thread Starter Forum Replies Last Post
Call Macro from Input Box String 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
Call Macro from Input Box String Macro or Function to know wether a string is included in a text Eduardo Word VBA 5 06-15-2009 01:55 AM
Call Macro from Input Box String How do I call/execute an Excel macro from Access 2003 KramerJ Excel 2 05-11-2009 11:33 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 12:35 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft