Macros and choices of shortcut keys

G

Greegan

I know I can choose letters A-Z with either Ctrl or Ctrl+SHIFT keys. I
cannot seem to choose numbers, OR F1-F12 function keys.
Is there a way I can more options than A-Z as mentioned above?
 
H

Harlan Grove

Greegan said:
I know I can choose letters A-Z with either Ctrl or Ctrl+SHIFT keys. I
cannot seem to choose numbers, OR F1-F12 function keys.
Is there a way I can more options than A-Z as mentioned above?
Click to expand...

Application.OnKey
 
G

Greegan

I know I can choose letters A-Z with either Ctrl or Ctrl+SHIFT keys. I
Application.OnKey
Click to expand...


Thank you. I have looked this up and i'm not exactly sure how to implement
the use of the command above.
I've included one such macro that I would like to change.

BTW in the end, I want to add my macros to a menu choice. The more the
merrier.
How can I change ' Keyboard Shortcut: Ctrl+r to us say 'F1'?

Sub StateCodes()
'
' StateCodes Macro
' Macro recorded 27/04/2004 by Scott Beattie
'
' Keyboard Shortcut: Ctrl+r
'
Columns("G:G").Select
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="&", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="-", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=" ", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ALABAMA", Replacement:="AL", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ALASKA", Replacement:="AK", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="AMERICAN SAMOA", Replacement:="AS", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ARIZONA", Replacement:="AZ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ARKANSAS", Replacement:="AR", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="CALIFORNIA", Replacement:="CA", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="COLORADO", Replacement:="CO", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="CONNECTICUT", Replacement:="CT",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="DELAWARE", Replacement:="DE", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="DISTRICT OF COLUMBIA", Replacement:="DC",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="FEDERATED STATES OF MICRONESIA",
Replacement:="FM", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="FLORIDA", Replacement:="FL", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="GEORGIA", Replacement:="GA", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="GUAM", Replacement:="GU", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="HAWAII", Replacement:="HI", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="IDAHO", Replacement:="ID", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ILLINOIS", Replacement:="IL", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="INDIANA", Replacement:="IN", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="IOWA", Replacement:="IA", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="KANSAS", Replacement:="KS", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="KENTUCKY", Replacement:="KY", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="LOUISIANA", Replacement:="LA", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MAINE", Replacement:="ME", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MARSHALL ISLANDS", Replacement:="MH",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MARYLAND", Replacement:="MD", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MASSACHUSETTS", Replacement:="MA",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MICHIGAN", Replacement:="MI", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="BRITISH VIRGIN ISLANDS", Replacement:="VG", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MINNESOTA", Replacement:="MN", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MISSISSIPPI", Replacement:="MS",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MISSOURI", Replacement:="MO", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MONTANA", Replacement:="MT", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEBRASKA", Replacement:="NE", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEVADA", Replacement:="NV", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEW HAMPSHIRE", Replacement:="NH",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEW JERSEY", Replacement:="NJ", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEW MEXICO", Replacement:="NM", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEW YORK", Replacement:="NY", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NORTH CAROLINA", Replacement:="NC",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NORTH DAKOTA", Replacement:="ND",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NORTHERN MARIANA ISLANDS", Replacement:="MP",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="OHIO", Replacement:="OH", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="OKLAHOMA", Replacement:="OK", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="OREGON", Replacement:="OR", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="PALAU", Replacement:="PW", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="PENNSYLVANIA", Replacement:="PA", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="PUERTO RICO", Replacement:="PR", LookAt:=xlPart
_
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="RHODE ISLAND", Replacement:="RI",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="SOUTH CAROLINA", Replacement:="SC", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="SOUTH DAKOTA", Replacement:="SD",
LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="TENNESSEE", Replacement:="TN", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="TEXAS", Replacement:="TX", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="UTAH", Replacement:="UT", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="VERMONT", Replacement:="VT", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="VIRGIN ISLANDS", Replacement:="VI",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="WEST VIRGINIA", Replacement:="WV",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="VIRGINIA", Replacement:="VA", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="WASHINGTON", Replacement:="WA", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="WEST VA", Replacement:="WV", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="WISCONSIN", Replacement:="WI", LookAt:=xlPart,
_
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="WYOMING", Replacement:="WY", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ALBERTA", Replacement:="AB", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="BRITISH COLUMBIA", Replacement:="BC", LookAt:=
_
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="MANITOBA", Replacement:="MB", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEW BRUNSWICK", Replacement:="NB",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEWFOUNDLAND AND LABRADOR", Replacement:="NL",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NEWFOUNDLAND", Replacement:="NL",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NORTHWEST TERRITORIES", Replacement:="NT",
LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NOVA SCOTIA", Replacement:="NS",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="NUNAVUT", Replacement:="NU", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ONTARIO", Replacement:="ON", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="PRINCE EDWARD ISLAND", Replacement:="PE",
LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="QUEBEC", Replacement:="QC", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="SASKATCHEWAN", Replacement:="SK",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="YUKON", Replacement:="YT", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("F1").Select
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Interchange line break and paragraph break shortcut keys 9
Macros will not run with shortcut keys 2
macro will not run with shortcut keys 0
Is there a two a shortcut to Save As with two letters? 3
Unassign a shortcut key from a macro 2
ASK Field Formatting 1
InfoPath repeating table choice 0
WORD VBA Search and switch to advanced ... 1

Top