Step 1: Setup and run the R&R as you want to see it run.
Step 2: Click the Show History button (looks like a spiral notepad with a > icon.
Step 3: Copy the stored commands. Looks like

Step 4: Create a macro and paste these commands into the macro.

Make sure that you included the Tolerance sub-command.

we work in plastics so we need a little bit of leniency. what is the code for tolerance sub command? is there a list of commands somewhere? I haven't done any coding since the 90's so I am a little bit behind on knowledge here. LOL

this is the main code for my macro. where and what do I add to get the %Tolerance to show?

kkset K1 "Gage R&R Study - Xbar and R Method for "
kkset k5 "Tolerance = "

if lsl = 1 and usl = 1
let tol = high - low
text tol ttol
do i=1:n
let tmp=tol let tmp2=ttol kkname k3 x.i
kkcat k1 k3 k4
kkcat k5 tmp2 k6
brief 2
###mtitle k4
###endmtitle
###mtitle k6
GageRR;
XBar;
Parts part;
Opers op;
Response x.i;
Studyvar 6;
Toler tmp;
GToler tmp2.
enddo
elseif usl=0 and lsl=0
do i=1:n
kkname k3 x.i
kkcat k1 k3 k4
brief 2
###mtitle k4
GageRR;
XBar;
Parts part;
Opers op;
Response x.i;
Studyvar 6.
enddo
elseif lsl = 1 and usl = 0
text low ttol
do i=1:n
let tmp=low let tmp2=ttol kkname k3 x.i
kkcat k1 k3 k4
kkcat k5 tmp2 k6
brief 2
###mtitle k4
###mtitle k6
GageRR;
XBar;
Parts part;
Opers op;
Response x.i;
Studyvar 6;
lsl tmp;
GToler tmp2.
enddo
elseif lsl = 0 and usl = 1
text high ttol
do i=1:n
let tmp=high let tmp2=ttol kkname k3 x.i
kkcat k1 k3 k4
kkcat k5 tmp2 k6
brief 2
###mtitle k4
###mtitle k6
GageRR;
XBar;
Parts part;
Opers op;
Response x.i;
Studyvar 6;
usl tmp;
GToler tmp2.
enddo
endif
endmtitle
endmacro

Why do you want the Xbar method? ANOVA is more accurate. Xbar is an approximation that was easier to manually calculate. With Minitab, manual calculation is a non-issue.