Thanks for your help.

Initially I was getting an syntax error, but I was trying to add your code to one of my other modules. I added a new module, and pasted your code and no errors are returned.

When I run the macro however, nothing happens. No screen flash or anything visible at all.

I checked the clipboard and there was noting in it.

I removed the quote from the two lines near the end (oRng.Copy) and (olItem.Close olDiscard) Re ran the macro and again nothing. Also checked the clipboard by using "Control V" and nothing is there.

Here is a copy of what my calendar item looks like with data in it:

VIN: 1GMZU62hX3ZA92085
Od: 200236
Plate: XYG7365

State Inspection
Sticker Number: X0337728
Insert Number: 22944514

Not sure if it matters, I am using Outlook 2010. I dont know that I have anything installed in outlook for QR Codes.

I am using Code 39 which is a Barcode font that I installed. If I add an asterisk to the beginning of the alphanumeric and to the end, my barcode reader will read it. Without those asterisks, the code reader will not read it.
So the Plate for example would be *XYG7365*

One thing I realized was as soon as I add an asterisk to the front and rear, the font gets changed to bold. I have to find out how to turn that setting off.

I am also wondering if it may be easier to convert my calendar item to the following:


VIN:
*1GMZU62hX3ZA92085*

Od:
*200236*

Plate:
*XYG7365*

State Inspection

Sticker Number:
*X0337728*

Insert Number:
*22944514*



This way I could actually just highlight the lines myself and change the font. But I really would like to get a macro to do it.


Thanks again for your help