This code works great!

Now I am wondering about putting several fields in one qr code.

Instead of having 12 qr codes and scanning each one in, I am wondering about putting all 12 entries in one qr code and seeing if I can enter the page worth of data with one barcode scan instead of 12.

I will have to play with it and see how many fields of data I can add. There has to be a horizontal tab (chr(9)) between the fields. So it would look like:

Dim sTotalQR As String
sTotalQR = sEmail + chr(9) + sType + chr(9) + sInspector +chr(9) +sPin + chr(9) + sDate

Could you explain a couple of lines of code so I can try to grasp what is happening?
What does “Option Explicit” do at the top of the sub?

Usually I use “+” to string fields together. I notice you are using “&” as in
wdDoc.Fields.Add oCell, 99, Chr(34) & sBar & Chr(34) & Chr(32) & "QR" & " \t", False

What code is actually generating the qr? Is it just this part of the line?
& "QR" & " \t", False

So could I add
sTotalQR = sEmail + chr(9) + sType + chr(9) + sInspector +chr(9) +sPin + chr(9) + sDate & “QR” & “ \t”, False
right where the ‘oRng.delete line is (Line 110) is to get a total qr code?

Thanks again for all your help