InputBox

[Guest]

I'm having a heck of a time. I want my macro to que the user to input the file name before running.
Instead of always running MPA Agency.xls, I want to be able to replace Agency with Attorney or Internal etc..... (MPA and .xls always stay the same

Windows("MPA Agency.xls ").Activate "
Range("V1").Selec
Sheets(Array("All Roll-up", "PEL_Rev Summary", "AF DFS Summary", "ARP",
"Auto Finance", "BCS", "Commercial", "DDA", "Direct", "DFS", "FUHEB", "FUMC", "HEL",
"Lease", "TMS", "TMS-PEL", "W&T", "Revolving", "PEL")).Selec
Sheets("All Roll-up").Activat
Columns("V:W").Selec
Selection.Cop
Range("Z1").Selec
Selection.Insert Shift:=xlToRigh
Range("Z1").Selec
Sheets("All Roll-up").Select

 

[David McRitchie]

Hi Hargrove,
I don't see InputBox in what you posted but perhaps you are
looking for a default (suggested) value in the InputBox prompt.
If so see examples in
http://www.mvps.org/dmcritchie/excel/inputbox.htm

 

[Tom Ogilvy]

sVar = "Attorney"

Windows("MPA " & svar & ".xls ").Activate

--
Regards,
Tom Ogilvy

I'm having a heck of a time. I want my macro to que the user to input the file name before running.
Instead of always running MPA Agency.xls, I want to be able to replace

Agency with Attorney or Internal etc..... (MPA and .xls always stay the
same)