Macro Works for Me but Not Others

jessebh2003 · Apr 28, 2021

I've been reading through the different macro posts and the internet trying to find a solution but nothing seems to work. I created a macro that performs many steps. The macro works fine without issue for me but when others try to run the macro they keep getting an error. The error occurs when the code reaches line 352 - searching for specific wording and replacing it with a number in the selected columns.

So far, we've tried 1) importing the module and 2) inserting a new module and pasting in the code but neither have worked. There's probably something I'm missing but I can't figure it out. Appreciate any help. Thanks!

Here is some sample data

ohiohealthevaluation290020210414134038.xlsx

A

B

C

D

E

F

G

H

I

J

K

L

M

N

O

P

Q

R

S

T

U

V

W

X

Y

Z

AA

AB

AC

AD

AE

AF

AG

AH

AI

AJ

AK

AL

AM

AN

AO

AP

AQ

AR

AS

AT

AU

AV

AW

AX

AY

AZ

BA

BB

BC

BD

BE

BF

BG

BH

BI

BJ

BK

BL

BM

BN

BO

BP

BQ

BR

BS

BT

BU

BV

BW

BX

BY

BZ

CA

CB

CC

CD

CE

CF

CG

CH

CI

CJ

CK

CL

CM

CN

CO

CP

CQ

CR

CS

CT

CU

CV

CW

CX

CY

CZ

DA

DB

DC

DD

DE

DF

DG

DH

DI

DJ

DK

DL

DM

DN

DO

DP

DQ

DR

DS

DT

DU

DV

DW

DX

DY

DZ

EA

EB

EC

ED

EE

EF

EG

EH

EI

EJ

EK

EL

EM

EN

EO

EP

EQ

ER

ES

ET

EU

EV

EW

EX

EY

EZ

FA

FB

FC

FD

FE

FF

FG

FH

FI

FJ

FK

FL

FM

FN

FO

FP

FQ

FR

FS

FT

FU

FV

FW

FX

FY

FZ

GA

GB

GC

GD

GE

GF

GG

GH

GI

GJ

GK

GL

GM

GN

GO

GP

1

FormSubmissionID

Created

CreatedShortDate

LastChanged

FullName

FirstName

LastName

LastFirst

FormID

EventID

ntd_donotedit

evaluationtitle

eventdetails

CreditConflict

PhysicianType

HoursClaimed

HoursOK

activitymaxhours

MaxCredits

ABIMMOCCredits

mocgrantedpermission

MOC_ID1

MOC_ID2

MOC_ID3

MOC_ID4

MOC_ID5

MOC_ID6

MOC_ID7

MOC_ID8

MOC_ID9

MOC_ID10

MOC_ID11

MOC_ID12

BirthMonth

BirthDay

WhatIsYourPrincipalActivity

WhatIsYourDiscipline

TheContentWasRelevantToMyWork

ThisEventProvidedMeWithNewInform

IIntendToUseWhatILearnedFromThis

comment_IfYouAgreeWithThePreviou

faclist

facultyknowledgeable

facultyeffective

facultyresponsive

facultyorganized

comment_AdditionalSpeakerComment

OverallTheConferenceWasFreeOfBia

TheLearningEnvironmentWasConduci

WhatOtherLearningFormatsWouldYou

IfOtherPleaseSpecify

comment_PleaseProvideUsWithSugge

obj0

obj1

obj2

obj3

obj4

obj5

obj6

obj7

obj8

obj9

obj10

obj11

obj12

obj13

obj14

obj15

obj16

obj17

obj18

obj19

Section129

CommitmentToChangeAreas

PleaseIdentifyAnyBarriersYouPerc

IfOtherBarrierPleaseSpecify

IfYouDoNotPlanToMakeAChangeInYou

IfOtherReasonPleaseSpecify

comment_change_area1

scale_area1

area1_implement

comment_implement_area1

area1_barrier_2

area1_barrier_3

area1_barrier_4

area1_barrier_5

area1_barrier_6

comment_area1_addressbarriers

comment_change_area2

scale_area2

area2_implement

comment_implement_area2

area2_barrier_2

area2_barrier_3

area2_barrier_4

area2_barrier_5

area2_barrier_6

comment_area2_addressbarriers

comment_change_area3

scale_area3

area3_implement

comment_implement_area3

area3_barrier_2

area3_barrier_3

area3_barrier_4

area3_barrier_5

area3_barrier_6

comment_area3_addressbarriers

comment_change_area4

scale_area4

area4_implement

comment_implement_area4

area4_barrier_2

area4_barrier_3

area4_barrier_4

area4_barrier_5

area4_barrier_6

comment_area4_addressbarriers

comment_change_area5

scale_area5

area5_implement

comment_implement_area5

area5_barrier_2

area5_barrier_3

area5_barrier_4

area5_barrier_5

area5_barrier_6

comment_area5_addressbarriers

comment_change_area6

scale_area6

area6_implement

comment_implement_area6

area6_barrier_2

area6_barrier_3

area6_barrier_4

area6_barrier_5

area6_barrier_6

comment_area6_addressbarriers

comment_change_area7

scale_area7

area7_implement

comment_implement_area7

area7_barrier_2

area7_barrier_3

area7_barrier_4

area7_barrier_5

area7_barrier_6

comment_area7_addressbarriers

comment_change_area8

scale_area8

area8_implement

comment_implement_area8

area8_barrier_2

area8_barrier_3

area8_barrier_4

area8_barrier_5

area8_barrier_6

comment_area8_addressbarriers

comment_change_area9

scale_area9

area9_implement

comment_implement_area9

area9_barrier_2

area9_barrier_3

area9_barrier_4

area9_barrier_5

area9_barrier_6

comment_area9_addressbarriers

comment_change_area10

scale_area10

area10_implement

comment_implement_area10

area10_barrier_2

area10_barrier_3

area10_barrier_4

area10_barrier_5

area10_barrier_6

comment_area10_addressbarriers

specify_other_area11

comment_change_area11

scale_area11

area11_implement

comment_implement_area11

area11_barrier_2

area11_barrier_3

area11_barrier_4

area11_barrier_5

area11_barrier_6

comment_area11_addressbarriers

EvalFollowUpTime

SelectAtLeastOneOfTheFollowingCh

IfOtherChangePleaseSpecify

userid

presentationid

usertype

DateCompleted

Locked

Email

2

27109

########

43794

########

John Doe, MD

John

Doe

John Doe

1215

2900

<h2>NOTE TO DESIGNER</h2> <h3>Due to the extensive nature of the rules and programming in this form, it is strongly recommended that you not make any changes to the form other than to add any additional questions you may require. Be attentive to messages in the form indicating hidden sections or panels.</h3> <h3>Repairing or replacing the form due to edits that you make resulting in the form no longer working as designed are billable.</h3>

61st Annual World Congress ICA 2019

Renaissance Columbus Downtown Hotel, Columbus, OH 2019-10-12 07:30:00.0 <div style="column-count:2">Speaker(s): Pertti Aarnio, MD, PhD Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA Gary Ansel, MD, FACC, FSCAI Rachelle Betsy, MD Sam Bittar, MD, FACP, FSVM, RPVI Geoffrey Blossom, MD, FACC Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS Charles F Botti Jr., MD, FACC, RPVI Robert Brightwell, DO John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS John Elefteriades, MD, FACS, FICA David Epstein, MD Jürgen Falkensammer, MD, FEBVS, FICA Randall W Franz, MD, FACS, FICA, RVT, RPVI Simon Fraser, DO Peter George, MD James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA Kanny S Grewal, MD Petr Hájek, MD, PhD, FICA Kristian S Hartanto, MD Jon C Henry, MD, MS, RPVI Martin Horváth, MD Maria Patricia Inggriani, MD Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM Lucy LaPerna, DO, FSVM, RPVI, RVT Frank Manetta, MD, FICA Stephen Markovich, MD George Meier III, MD, RVT, FACS Ernesto P Molmenti, MD, PhD, MBA, FICA Asevano Christobed Panjaitan, MD John Phillips, MD Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA Mohammad Galih Pratama, MD Jeffrey Prem, MD, FACS, FICA Charles Pugar, DO Sibu Saha, MD, MBA, FICA Thomas Salamon, MD Rony M. Santoso, MD, PhD Richard Schutzer, MD, FACS, FICA Robert Schwartz, MD, FACS Rajinder P Sharma, MD Michael Silva Jr., MD, FACS Mitch Silver, DO, FACC, FSVM, RPVI Sem Sitanggang, MD Jean Starr, MD, DFSVS, RPVI Cyril Štechovský, MD Kevin Stiver, MD, MS Michael Tempelhof, MD Erickson Tenorio, MD Kui Ting Teong, MBBS Josef Veselka, MD, PhD, FICA Nirav Vora, MD Michael Winkler, MD, FSCCT, FICA Wei Zhou, MD, FACS, FICA </div>

You cannot select both AMA PRA Category 1 credits and non-physician Attendance credits. Please choose one or the other.

1

0

17

0

No

9

1

Inpatient & Outpatient

Physician (e.g. MD, DO, PhD, etc.)

Agree

Speaker(s): Pertti Aarnio, MD, PhD Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA Gary Ansel, MD, FACC, FSCAI Rachelle Betsy, MD Sam Bittar, MD, FACP, FSVM, RPVI Geoffrey Blossom, MD, FACC Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS Charles F Botti Jr., MD, FACC, RPVI Robert Brightwell, DO John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS John Elefteriades, MD, FACS, FICA David Epstein, MD Jürgen Falkensammer, MD, FEBVS, FICA Randall W Franz, MD, FACS, FICA, RVT, RPVI Simon Fraser, DO Peter George, MD James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA Kanny S Grewal, MD Petr Hájek, MD, PhD, FICA Kristian S Hartanto, MD Jon C Henry, MD, MS, RPVI Martin Horváth, MD Maria Patricia Inggriani, MD Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM Lucy LaPerna, DO, FSVM, RPVI, RVT Frank Manetta, MD, FICA Stephen Markovich, MD George Meier III, MD, RVT, FACS Ernesto P Molmenti, MD, PhD, MBA, FICA Asevano Christobed Panjaitan, MD John Phillips, MD Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA Mohammad Galih Pratama, MD Jeffrey Prem, MD, FACS, FICA Charles Pugar, DO Sibu Saha, MD, MBA, FICA Thomas Salamon, MD Rony M. Santoso, MD, PhD Richard Schutzer, MD, FACS, FICA Robert Schwartz, MD, FACS Rajinder P Sharma, MD Michael Silva Jr., MD, FACS Mitch Silver, DO, FACC, FSVM, RPVI Sem Sitanggang, MD Jean Starr, MD, DFSVS, RPVI Cyril Štechovský, MD Kevin Stiver, MD, MS Michael Tempelhof, MD Erickson Tenorio, MD Kui Ting Teong, MBBS Josef Veselka, MD, PhD, FICA Nirav Vora, MD Michael Winkler, MD, FSCCT, FICA Wei Zhou, MD, FACS, FICA

Agree

Case_Study

case based presentations

Agree

Testing

Habit

Other

already doing

Chose the most cost/effective study

8

90

88

0

43794

John.Doe@email.com

3

25391

########

43756

########

John Doe, MD

John

Doe

John Doe

1215

2900

<h2>NOTE TO DESIGNER</h2> <h3>Due to the extensive nature of the rules and programming in this form, it is strongly recommended that you not make any changes to the form other than to add any additional questions you may require. Be attentive to messages in the form indicating hidden sections or panels.</h3> <h3>Repairing or replacing the form due to edits that you make resulting in the form no longer working as designed are billable.</h3>

61st Annual World Congress ICA 2019

Renaissance Columbus Downtown Hotel, Columbus, OH 2019-10-12 07:30:00.0 <div style="column-count:2">Speaker(s): Pertti Aarnio, MD, PhD Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA Gary Ansel, MD, FACC, FSCAI Rachelle Betsy, MD Sam Bittar, MD, FACP, FSVM, RPVI Geoffrey Blossom, MD, FACC Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS Charles F Botti Jr., MD, FACC, RPVI Robert Brightwell, DO John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS John Elefteriades, MD, FACS, FICA David Epstein, MD Jürgen Falkensammer, MD, FEBVS, FICA Randall W Franz, MD, FACS, FICA, RVT, RPVI Simon Fraser, DO Peter George, MD James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA Kanny S Grewal, MD, FACC, FASE, FASNC Petr Hájek, MD, PhD, FICA Kristian S Hartanto, MD Jon C Henry, MD, MS, RPVI Martin Horváth, MD Maria Patricia Inggriani, MD Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM Lucy LaPerna, DO, FSVM, RPVI, RVT Frank Manetta, MD, FICA Stephen Markovich, MD George Meier III, MD, RVT, FACS Ernesto P Molmenti, MD, PhD, MBA, FICA Asevano Christobed Panjaitan, MD John Phillips, MD Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA Mohammad Galih Pratama, MD Jeffrey Prem, MD, FACS, FICA Charles Pugar, DO Sibu Saha, MD, MBA, FICA Thomas Salamon, MD Rony M. Santoso, MD, PhD Richard Schutzer, MD, FACS, FICA Robert Schwartz, MD, FACS Rajinder P Sharma, MD Michael Silva Jr., MD, FACS Mitch Silver, DO, FACC, FSVM, RPVI Sem Sitanggang, MD Jean Starr, MD, DFSVS, RPVI Cyril Štechovský, MD Kevin Stiver, MD, MS Michael Tempelhof, MD, MSc, FACC, FSCAI, RPVI Erickson Tenorio, MD Kui Ting Teong, MBBS Josef Veselka, MD, PhD, FICA Nirav Vora, MD Michael Winkler, MD, FSCCT, FICA Wei Zhou, MD, FACS, FICA </div>

You cannot select both AMA PRA Category 1 credits and non-physician Attendance credits. Please choose one or the other.

3

0

17

0

No

9

3

Inpatient & Outpatient

Allied Healthcare Professional (e.g. SLP, PT, OT, RT, EMT, etc.)

Strongly Agree

Dr Franz did an excellent presentation on aortic repair as a sonographer we routinely scan and follow aneurysm of all types.

Speaker(s): Pertti Aarnio, MD, PhD Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA Gary Ansel, MD, FACC, FSCAI Rachelle Betsy, MD Sam Bittar, MD, FACP, FSVM, RPVI Geoffrey Blossom, MD, FACC Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS Charles F Botti Jr., MD, FACC, RPVI Robert Brightwell, DO John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS John Elefteriades, MD, FACS, FICA David Epstein, MD Jürgen Falkensammer, MD, FEBVS, FICA Randall W Franz, MD, FACS, FICA, RVT, RPVI Simon Fraser, DO Peter George, MD James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA Kanny S Grewal, MD, FACC, FASE, FASNC Petr Hájek, MD, PhD, FICA Kristian S Hartanto, MD Jon C Henry, MD, MS, RPVI Martin Horváth, MD Maria Patricia Inggriani, MD Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM Lucy LaPerna, DO, FSVM, RPVI, RVT Frank Manetta, MD, FICA Stephen Markovich, MD George Meier III, MD, RVT, FACS Ernesto P Molmenti, MD, PhD, MBA, FICA Asevano Christobed Panjaitan, MD John Phillips, MD Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA Mohammad Galih Pratama, MD Jeffrey Prem, MD, FACS, FICA Charles Pugar, DO Sibu Saha, MD, MBA, FICA Thomas Salamon, MD Rony M. Santoso, MD, PhD Richard Schutzer, MD, FACS, FICA Robert Schwartz, MD, FACS Rajinder P Sharma, MD Michael Silva Jr., MD, FACS Mitch Silver, DO, FACC, FSVM, RPVI Sem Sitanggang, MD Jean Starr, MD, DFSVS, RPVI Cyril Štechovský, MD Kevin Stiver, MD, MS Michael Tempelhof, MD, MSc, FACC, FSCAI, RPVI Erickson Tenorio, MD Kui Ting Teong, MBBS Josef Veselka, MD, PhD, FICA Nirav Vora, MD Michael Winkler, MD, FSCCT, FICA Wei Zhou, MD, FACS, FICA

Strongly Agree

Dr Franz is able to conveys his passion for vascular procedures in a professional manner. His year of experience in vascular surgery is a strong resource for all staff at Grant.

Strongly Agree

N/A

The venue was spacious, good sound quality and the catered food was excellent.

Strongly Agree

NA

Limited_of_Opportunity_(Patients)

.

Other

.

10

90

95

0

43756

John.Doe@email.com

4

25444

########

43759

########

John Doe, MD

John

Doe

John Doe

1215

2900

<h2>NOTE TO DESIGNER</h2> <h3>Due to the extensive nature of the rules and programming in this form, it is strongly recommended that you not make any changes to the form other than to add any additional questions you may require. Be attentive to messages in the form indicating hidden sections or panels.</h3> <h3>Repairing or replacing the form due to edits that you make resulting in the form no longer working as designed are billable.</h3>

61st Annual World Congress ICA 2019

Renaissance Columbus Downtown Hotel, Columbus, OH 2019-10-12 07:30:00.0 <div style="column-count:2">Speaker(s): Pertti Aarnio, MD, PhD Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA Gary Ansel, MD, FACC, FSCAI Rachelle Betsy, MD Sam Bittar, MD, FACP, FSVM, RPVI Geoffrey Blossom, MD, FACC Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS Charles F Botti Jr., MD, FACC, RPVI Robert Brightwell, DO John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS John Elefteriades, MD, FACS, FICA David Epstein, MD Jürgen Falkensammer, MD, FEBVS, FICA Randall W Franz, MD, FACS, FICA, RVT, RPVI Simon Fraser, DO Peter George, MD James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA Kanny S Grewal, MD, FACC, FASE, FASNC Petr Hájek, MD, PhD, FICA Kristian S Hartanto, MD Jon C Henry, MD, MS, RPVI Martin Horváth, MD Maria Patricia Inggriani, MD Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM Lucy LaPerna, DO, FSVM, RPVI, RVT Frank Manetta, MD, FICA Stephen Markovich, MD George Meier III, MD, RVT, FACS Ernesto P Molmenti, MD, PhD, MBA, FICA Asevano Christobed Panjaitan, MD John Phillips, MD Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA Mohammad Galih Pratama, MD Jeffrey Prem, MD, FACS, FICA Charles Pugar, DO Sibu Saha, MD, MBA, FICA Thomas Salamon, MD Rony M. Santoso, MD, PhD Richard Schutzer, MD, FACS, FICA Robert Schwartz, MD, FACS Rajinder P Sharma, MD Michael Silva Jr., MD, FACS Mitch Silver, DO, FACC, FSVM, RPVI Sem Sitanggang, MD Jean Starr, MD, DFSVS, RPVI Cyril Štechovský, MD Kevin Stiver, MD, MS Michael Tempelhof, MD, MSc, FACC, FSCAI, RPVI Erickson Tenorio, MD Kui Ting Teong, MBBS Josef Veselka, MD, PhD, FICA Nirav Vora, MD Michael Winkler, MD, FSCCT, FICA Wei Zhou, MD, FACS, FICA </div>

You cannot select both AMA PRA Category 1 credits and non-physician Attendance credits. Please choose one or the other.

1 32

0

17

0

No

4

17

Inpatient & Outpatient

Physician (e.g. MD, DO, PhD, etc.)

Strongly Agree

Speaker(s): Pertti Aarnio, MD, PhD Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA Gary Ansel, MD, FACC, FSCAI Rachelle Betsy, MD Sam Bittar, MD, FACP, FSVM, RPVI Geoffrey Blossom, MD, FACC Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS Charles F Botti Jr., MD, FACC, RPVI Robert Brightwell, DO John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS John Elefteriades, MD, FACS, FICA David Epstein, MD Jürgen Falkensammer, MD, FEBVS, FICA Randall W Franz, MD, FACS, FICA, RVT, RPVI Simon Fraser, DO Peter George, MD James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA Kanny S Grewal, MD, FACC, FASE, FASNC Petr Hájek, MD, PhD, FICA Kristian S Hartanto, MD Jon C Henry, MD, MS, RPVI Martin Horváth, MD Maria Patricia Inggriani, MD Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM Lucy LaPerna, DO, FSVM, RPVI, RVT Frank Manetta, MD, FICA Stephen Markovich, MD George Meier III, MD, RVT, FACS Ernesto P Molmenti, MD, PhD, MBA, FICA Asevano Christobed Panjaitan, MD John Phillips, MD Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA Mohammad Galih Pratama, MD Jeffrey Prem, MD, FACS, FICA Charles Pugar, DO Sibu Saha, MD, MBA, FICA Thomas Salamon, MD Rony M. Santoso, MD, PhD Richard Schutzer, MD, FACS, FICA Robert Schwartz, MD, FACS Rajinder P Sharma, MD Michael Silva Jr., MD, FACS Mitch Silver, DO, FACC, FSVM, RPVI Sem Sitanggang, MD Jean Starr, MD, DFSVS, RPVI Cyril Štechovský, MD Kevin Stiver, MD, MS Michael Tempelhof, MD, MSc, FACC, FSCAI, RPVI Erickson Tenorio, MD Kui Ting Teong, MBBS Josef Veselka, MD, PhD, FICA Nirav Vora, MD Michael Winkler, MD, FSCCT, FICA Wei Zhou, MD, FACS, FICA

Strongly Agree

Case_Study Webinar

Strongly Agree

Assessment Diagnosis Communication Formulate

Limited_of_Opportunity_(Patients) Reimbursement/Insurance_Issues Limited_Time_to_Assess/Counsel_Patients

Confirmed_my_Current_Practice

I will make more experties.

10

treatment based on guideline

10

will inform patient better

10

i will offer the newest treatment for patient

10

90

22780

0

43759

John.Doe@email.com

5

25135

########

43752

########

John Doe, MD

John

Doe

John Doe

1215

2900

<h2>NOTE TO DESIGNER</h2> <h3>Due to the extensive nature of the rules and programming in this form, it is strongly recommended that you not make any changes to the form other than to add any additional questions you may require. Be attentive to messages in the form indicating hidden sections or panels.</h3> <h3>Repairing or replacing the form due to edits that you make resulting in the form no longer working as designed are billable.</h3>

61st Annual World Congress ICA 2019

Renaissance Columbus Downtown Hotel, Columbus, OH 2019-10-12 07:30:00.0 <div style="column-count:2">Speaker(s): Pertti Aarnio, MD, PhD Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA Gary Ansel, MD, FACC, FSCAI Rachelle Betsy, MD Sam Bittar, MD, FACP, FSVM, RPVI Geoffrey Blossom, MD, FACC Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS Charles F Botti Jr., MD, FACC, RPVI Robert Brightwell, DO John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS John Elefteriades, MD, FACS, FICA David Epstein, MD Jürgen Falkensammer, MD, FEBVS, FICA Randall W Franz, MD, FACS, FICA, RVT, RPVI Simon Fraser, DO Peter George, MD James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA Kanny S Grewal, MD Petr Hájek, MD, PhD, FICA Kristian S Hartanto, MD Jon C Henry, MD, MS, RPVI Martin Horváth, MD Maria Patricia Inggriani, MD Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM Lucy LaPerna, DO, FSVM, RPVI, RVT Frank Manetta, MD, FICA Stephen Markovich, MD George Meier III, MD, RVT, FACS Ernesto P Molmenti, MD, PhD, MBA, FICA Asevano Christobed Panjaitan, MD John Phillips, MD Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA Mohammad Galih Pratama, MD Jeffrey Prem, MD, FACS, FICA Charles Pugar, DO Sibu Saha, MD, MBA, FICA Thomas Salamon, MD Rony M. Santoso, MD, PhD Richard Schutzer, MD, FACS, FICA Robert Schwartz, MD, FACS Rajinder P Sharma, MD Michael Silva Jr., MD, FACS Mitch Silver, DO, FACC, FSVM, RPVI Sem Sitanggang, MD Jean Starr, MD, DFSVS, RPVI Cyril Štechovský, MD Kevin Stiver, MD, MS Michael Tempelhof, MD Erickson Tenorio, MD Kui Ting Teong, MBBS Josef Veselka, MD, PhD, FICA Nirav Vora, MD Michael Winkler, MD, FSCCT, FICA Wei Zhou, MD, FACS, FICA </div>

You cannot select both AMA PRA Category 1 credits and non-physician Attendance credits. Please choose one or the other.

1

0

17

0

No

2

16

Inpatient & Outpatient

Physician (e.g. MD, DO, PhD, etc.)

Strongly Agree

Will incorporate the new data into patient care.

Speaker(s): Pertti Aarnio, MD, PhD Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA Gary Ansel, MD, FACC, FSCAI Rachelle Betsy, MD Sam Bittar, MD, FACP, FSVM, RPVI Geoffrey Blossom, MD, FACC Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS Charles F Botti Jr., MD, FACC, RPVI Robert Brightwell, DO John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS John Elefteriades, MD, FACS, FICA David Epstein, MD Jürgen Falkensammer, MD, FEBVS, FICA Randall W Franz, MD, FACS, FICA, RVT, RPVI Simon Fraser, DO Peter George, MD James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA Kanny S Grewal, MD Petr Hájek, MD, PhD, FICA Kristian S Hartanto, MD Jon C Henry, MD, MS, RPVI Martin Horváth, MD Maria Patricia Inggriani, MD Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM Lucy LaPerna, DO, FSVM, RPVI, RVT Frank Manetta, MD, FICA Stephen Markovich, MD George Meier III, MD, RVT, FACS Ernesto P Molmenti, MD, PhD, MBA, FICA Asevano Christobed Panjaitan, MD John Phillips, MD Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA Mohammad Galih Pratama, MD Jeffrey Prem, MD, FACS, FICA Charles Pugar, DO Sibu Saha, MD, MBA, FICA Thomas Salamon, MD Rony M. Santoso, MD, PhD Richard Schutzer, MD, FACS, FICA Robert Schwartz, MD, FACS Rajinder P Sharma, MD Michael Silva Jr., MD, FACS Mitch Silver, DO, FACC, FSVM, RPVI Sem Sitanggang, MD Jean Starr, MD, DFSVS, RPVI Cyril Štechovský, MD Kevin Stiver, MD, MS Michael Tempelhof, MD Erickson Tenorio, MD Kui Ting Teong, MBBS Josef Veselka, MD, PhD, FICA Nirav Vora, MD Michael Winkler, MD, FSCCT, FICA Wei Zhou, MD, FACS, FICA

Strongly Agree

Good variety of speakers.

Strongly Agree

N/A

More case based approaches

Agree

Formulate

Limited_Resources_(Funding,_Equipment,_Cost_of_Treatment)

Confirmed_my_Current_Practice

More outcome measurements

6

Yes

improved patient satisfaction

90

491

0

43752

John.Doe@email.com

Sheet1

VBA Code:

Sub CommitEvaluationCleanUp()
'
' C2CEvaluationCleanUp Macro
'

'
    ' EVALUATION DATA CLEAN UP
    
    ' Delete user information and programming columns
    Columns("A:K").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:Z").Select
    Selection.Delete Shift:=xlToLeft
    Columns("F:F").Select
    Selection.Delete Shift:=xlToLeft
    Columns("AJ:AJ").Select
    Selection.Delete Shift:=xlToLeft
    Columns("EV:FD").Select
    Selection.Delete Shift:=xlToLeft
    
    ' Replace field names with evaluation questions
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Activity Name"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "The content was relevant to my work"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "This event provided me with new information (or clarified existing Information)"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "I intend to use what I learned from this activity"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "If you agree with the previous statement, please provide us with details as to which component(s) of the conference you plan on using."
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "The speaker was knowledgeable about the subject"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "The speaker was effective in helping me learn new information (or clarifying existing information)"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "The speaker was responsive to participant's needs and questions"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "The presentation(s) was well organized, clear and concise"
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "Additional Speaker Comments:"
    Range("K1").Select
    ActiveCell.FormulaR1C1 = "Overall, the conference was free of bias"
    Range("L1").Select
    ActiveCell.FormulaR1C1 = "The learning environment was conducive to learning"
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "What other learning formats would have been helpful for this activity?"
    Range("N1").Select
    ActiveCell.FormulaR1C1 = "If other, please specify."
    Range("O1").Select
    ActiveCell.FormulaR1C1 = "Please provide us with suggestions for improving the content, facilitation, delivery, environment and/or utility of this event."
    Range("P1").Select
    ActiveCell.FormulaR1C1 = "Objective 1"
    Range("Q1").Select
    ActiveCell.FormulaR1C1 = "Objective 2"
    Range("R1").Select
    ActiveCell.FormulaR1C1 = "Objective 3"
    Range("S1").Select
    ActiveCell.FormulaR1C1 = "Objective 4"
    Range("T1").Select
    ActiveCell.FormulaR1C1 = "Objective 5"
    Range("U1").Select
    ActiveCell.FormulaR1C1 = "Objective 6"
    Range("V1").Select
    ActiveCell.FormulaR1C1 = "Objective 7"
    Range("W1").Select
    ActiveCell.FormulaR1C1 = "Objective 8"
    Range("X1").Select
    ActiveCell.FormulaR1C1 = "Objective 9"
    Range("Y1").Select
    ActiveCell.FormulaR1C1 = "Objective 10"
    Range("Z1").Select
    ActiveCell.FormulaR1C1 = "Objective 11"
    Range("AA1").Select
    ActiveCell.FormulaR1C1 = "Objective 12"
    Range("AB1").Select
    ActiveCell.FormulaR1C1 = "Objective 14"
    Range("AC1").Select
    ActiveCell.FormulaR1C1 = "Objective 14"
    Range("AD1").Select
    ActiveCell.FormulaR1C1 = "Objective 15"
    Range("AE1").Select
    ActiveCell.FormulaR1C1 = "Objective 16"
    Range("AF1").Select
    ActiveCell.FormulaR1C1 = "Objective 17"
    Range("AG1").Select
    ActiveCell.FormulaR1C1 = "Objective 18"
    Range("AH1").Select
    ActiveCell.FormulaR1C1 = "Objective 19"
    Range("AI1").Select
    ActiveCell.FormulaR1C1 = "Objective 20"
    Range("AJ1").Select
    ActiveCell.FormulaR1C1 = "Commitment to Change Areas"
    Range("AK1").Select
    ActiveCell.FormulaR1C1 = "Please identify any barriers you perceive in implementing these changes:"
    Range("AL1").Select
    ActiveCell.FormulaR1C1 = "If other barrier, please specify:"
    Range("AM1").Select
    ActiveCell.FormulaR1C1 = "If you do not plan to make a change in your performance, please indicate the reason below:"
    Range("AN1").Select
    ActiveCell.FormulaR1C1 = "If other reason, please specify:"
    Range("AO1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - List the specific, measurable change(s) you plan to make:"
    Range("AP1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - How confident are you that you will be able to make this change?"
    Range("AQ1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - Have you been able to implement the change(s) listed above?"
    Range("AR1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("AS1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - PROVIDER:"
    Range("AT1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - TEAM:"
    Range("AU1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - PATIENT:"
    Range("AV1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - SYSTEM/ORGANIZATION:"
    Range("AW1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - OTHER:"
    Range("AX1").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("AY1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - List the specific, measurable change(s) you plan to make:"
    Range("AZ1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - How confident are you that you will be able to make this change?"
    Range("BA1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - Have you been able to implement the change(s) listed above?"
    Range("BB1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("BC1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - PROVIDER:"
    Range("BD1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - TEAM:"
    Range("BE1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - PATIENT:"
    Range("BF1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - SYSTEM/ORGANIZATION:"
    Range("BG1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - OTHER:"
    Range("BH1").Select
    ActiveCell.FormulaR1C1 = "Diagnosis - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("BI1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - List the specific, measurable change(s) you plan to make:"
    Range("BJ1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - How confident are you that you will be able to make this change?"
    Range("BK1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - Have you been able to implement the change(s) listed above?"
    Range("BL1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("BM1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - PROVIDER:"
    Range("BN1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - TEAM:"
    Range("BO1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - PATIENT:"
    Range("BP1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - SYSTEM/ORGANIZATION:"
    Range("BQ1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - OTHER:"
    Range("BR1").Select
    ActiveCell.FormulaR1C1 = "Patient Communication - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("BS1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - List the specific, measurable change(s) you plan to make:"
    Range("BT1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - How confident are you that you will be able to make this change?"
    Range("BU1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - Have you been able to implement the change(s) listed above?"
    Range("BV1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("BW1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - PROVIDER:"
    Range("BX1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - TEAM:"
    Range("BY1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - PATIENT:"
    Range("BZ1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - SYSTEM/ORGANIZATION:"
    Range("CA1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - OTHER:"
    Range("CB1").Select
    ActiveCell.FormulaR1C1 = "Increase/Decrease Testing - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("CC1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - List the specific, measurable change(s) you plan to make:"
    Range("CD1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - How confident are you that you will be able to make this change?"
    Range("CE1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - Have you been able to implement the change(s) listed above?"
    Range("CF1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("CG1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - PROVIDER:"
    Range("CH1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - TEAM:"
    Range("CI1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - PATIENT:"
    Range("CJ1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - SYSTEM/ORGANIZATION:"
    Range("CK1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - OTHER:"
    Range("CL1").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("CM1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - List the specific, measurable change(s) you plan to make:"
    Range("CN1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - How confident are you that you will be able to make this change?"
    Range("CO1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - Have you been able to implement the change(s) listed above?"
    Range("CP1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("CQ1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - PROVIDER:"
    Range("CR1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - TEAM:"
    Range("CS1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - PATIENT:"
    Range("CT1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - SYSTEM/ORGANIZATION:"
    Range("CU1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - OTHER:"
    Range("CV1").Select
    ActiveCell.FormulaR1C1 = "New Prescription - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("CW1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - List the specific, measurable change(s) you plan to make:"
    Range("CX1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - How confident are you that you will be able to make this change?"
    Range("CY1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - Have you been able to implement the change(s) listed above?"
    Range("CZ1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("DA1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - PROVIDER:"
    Range("DB1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - TEAM:"
    Range("DC1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - PATIENT:"
    Range("DD1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - SYSTEM/ORGANIZATION:"
    Range("DE1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - OTHER:"
    Range("DF1").Select
    ActiveCell.FormulaR1C1 = "Change Prescription - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("DG1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - List the specific, measurable change(s) you plan to make:"
    Range("DH1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - How confident are you that you will be able to make this change?"
    Range("DI1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - Have you been able to implement the change(s) listed above?"
    Range("DJ1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("DK1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - PROVIDER:"
    Range("DL1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - TEAM:"
    Range("DM1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - PATIENT:"
    Range("DN1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - SYSTEM/ORGANIZATION:"
    Range("DO1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - OTHER:"
    Range("DP1").Select
    ActiveCell.FormulaR1C1 = "Increase Dose - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("DQ1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - List the specific, measurable change(s) you plan to make:"
    Range("DR1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - How confident are you that you will be able to make this change?"
    Range("DS1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - Have you been able to implement the change(s) listed above?"
    Range("DT1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("DU1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - PROVIDER:"
    Range("DV1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - TEAM:"
    Range("DW1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - PATIENT:"
    Range("DX1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - SYSTEM/ORGANIZATION:"
    Range("DY1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - OTHER:"
    Range("DZ1").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("EA1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - List the specific, measurable change(s) you plan to make:"
    Range("EB1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - How confident are you that you will be able to make this change?"
    Range("EC1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - Have you been able to implement the change(s) listed above?"
    Range("ED1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("EE1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - PROVIDER:"
    Range("EF1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - TEAM:"
    Range("EG1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - PATIENT:"
    Range("EH1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - SYSTEM/ORGANIZATION:"
    Range("EI1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - OTHER:"
    Range("EJ1").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self - What might you do to address barriers you encountered? Please indicate your next steps:"
    Range("EK1").Select
    ActiveCell.FormulaR1C1 = "Specify other area:"
    Range("EL1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - List the specific, measurable change(s) you plan to make:"
    Range("EM1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - How confident are you that you will be able to make this change?"
    Range("EN1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - Have you been able to implement the change(s) listed above?"
    Range("EO1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - Briefly describe the outcome of implementing the change(s) in terms of how it affected your practice, team or patient outcomes:"
    Range("EP1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - PROVIDER:"
    Range("EQ1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - TEAM:"
    Range("ER1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - PATIENT:"
    Range("ES1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - SYSTEM/ORGANIZATION:"
    Range("ET1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - OTHER:"
    Range("EU1").Select
    ActiveCell.FormulaR1C1 = "Other (specify area) - What might you do to address barriers you encountered? Please indicate your next steps:"
    
    ' Insert title row and set header row alignment, row height and autofilter
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=R3C1"
    Columns("A:A").Select
    Selection.EntireColumn.Hidden = True
    Rows("1:1").RowHeight = 24.75
    Rows("1:1").Select
    Selection.Font.Size = 14
    Selection.Font.Bold = True
    Rows("2:2").Select
    Selection.RowHeight = 66.75
    Selection.AutoFilter
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    ' Replace Likert scale selections with weights (strongly agree = 5, strongly disagree = 1, disagree = 2, agree = 4, neutral = 3)
    Range("B3:D1000,F3:I1000,K3:L1000,P3:AI1000").Select
    Selection.Replace What:="Strongly Agree", Replacement:="5", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="Strongly Disagree", Replacement:="1", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="Disagree", Replacement:="2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="Agree", Replacement:="4", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:="Neutral", Replacement:="3", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

    ' Set column widths and wrap text
    Columns("B:B").ColumnWidth = 17.71
    Columns("C:C").ColumnWidth = 16
    Columns("D:D").ColumnWidth = 17
    Columns("E:E").ColumnWidth = 29.71
    Columns("F:F").ColumnWidth = 12.57
    Columns("G:G").ColumnWidth = 18.57
    Columns("H:H").ColumnWidth = 13.14
    Columns("I:I").ColumnWidth = 13.43
    Columns("J:J").ColumnWidth = 16.43
    Columns("K:K").ColumnWidth = 10.29
    Columns("L:L").ColumnWidth = 11.29
    Columns("M:N").ColumnWidth = 18
    Columns("O:O").ColumnWidth = 25.43
    Columns("P:AI").ColumnWidth = 8.43
    Columns("AJ:AJ").ColumnWidth = 16.29
    Columns("AK:AK").ColumnWidth = 20.29
    Columns("AL:AL").ColumnWidth = 17.43
    Columns("AM:AN").ColumnWidth = 20
    Columns("AO:AO").ColumnWidth = 25
    Columns("AP:AP").ColumnWidth = 28
    Columns("AQ:AQ").ColumnWidth = 25
    Columns("AR:AR").ColumnWidth = 30.29
    Columns("AS:BI").ColumnWidth = 25
    Columns("BJ:BJ").ColumnWidth = 27.57
    Columns("BK:BK").ColumnWidth = 25
    Columns("BL:BL").ColumnWidth = 30.71
    Columns("BM:BS").ColumnWidth = 25
    Columns("BT:BT").ColumnWidth = 28.14
    Columns("BU:BU").ColumnWidth = 25
    Columns("BV:BV").ColumnWidth = 31.86
    Columns("BW:CC").ColumnWidth = 25
    Columns("CD:CD").ColumnWidth = 26.71
    Columns("CE:CE").ColumnWidth = 25
    Columns("CF:CF").ColumnWidth = 30.43
    Columns("CG:CO").ColumnWidth = 25
    Columns("CP:CP").ColumnWidth = 28.86
    Columns("CQ:CV").ColumnWidth = 25
    Columns("CW:CW").ColumnWidth = 18
    Columns("CX:CX").ColumnWidth = 26.57
    Columns("CY:CY").ColumnWidth = 25
    Columns("CZ:CZ").ColumnWidth = 30.86
    Columns("DA:DI").ColumnWidth = 25
    Columns("DJ:DJ").ColumnWidth = 27.86
    Columns("DK:DS").ColumnWidth = 25
    Columns("DT:DT").ColumnWidth = 27.29
    Columns("DU:EA").ColumnWidth = 25
    Columns("EB:EB").ColumnWidth = 29.43
    Columns("EC:EC").ColumnWidth = 25
    Columns("ED:ED").ColumnWidth = 31.14
    Columns("EE:EL").ColumnWidth = 25
    Columns("EM:EM").ColumnWidth = 27.29
    Columns("EN:EN").ColumnWidth = 25
    Columns("EO:EO").ColumnWidth = 31.14
    Columns("EP:EU").ColumnWidth = 25
    Cells.Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("B1").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    ' Freeze panes and rename tabs
    Rows("3:3").Select
    Range("B3").Activate
    ActiveWindow.FreezePanes = True
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Data"
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "Summary"
    
    ' POPULATES SUMMARY TAB
    
    ' Populates ROL Level 1 mean and standard deviation
    Sheets("Summary").Select
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "Mean"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "St. Dev."
    Range("A5").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C2"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R3C2:R1000C2)"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R3C2:R1000C2)"
    Range("A6").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C4"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R3C4:R1000C4)"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R3C4:R1000C4)"
    Range("A7").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C6"
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R3C6:R1000C6)"
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R3C6:R1000C6)"
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C7"
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R3C7:R1000C7)"
    Range("C8").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R3C7:R1000C7)"
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C8"
    Range("B9").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R3C8:R1000C8)"
    Range("C9").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R3C8:R1000C8)"
    Range("A10").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C12"
    Range("B10").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R2C12:R1000C12)"
    Range("C10").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R2C12:R1000C12)"
    Range("B5:C10").Select
    Selection.NumberFormat = "0.00"

    ' Populates ROL Level 2 mean and standard deviation
    Range("B13").Select
    ActiveCell.FormulaR1C1 = "Mean"
    Range("C13").Select
    ActiveCell.FormulaR1C1 = "St. Dev."
    Range("A14").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C3"
    Range("B14").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R3C3:R1000C3)"
    Range("C14").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R3C3:R1000C3)"
    Range("B14:C14").Select
    Selection.NumberFormat = "0.00"
    
    ' Populates CME mean and standard deviation
    Range("B17").Select
    ActiveCell.FormulaR1C1 = "Mean"
    Range("C17").Select
    ActiveCell.FormulaR1C1 = "St. Dev."
    Range("A18").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C9"
    Range("B18").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R3C9:R1000C9)"
    Range("C18").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R3C9:R1000C9)"
    Range("A19").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C11"
    Range("B19").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(Data!R3C11:R1000C11)"
    Range("C19").Select
    ActiveCell.FormulaR1C1 = "=STDEV(Data!R3C11:R1000C11)"
    Range("B18:C19").Select
    Selection.NumberFormat = "0.00"

    ' Counts other learning formats
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C13"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "Case Study"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Case_Study*""),"""")"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "Demonstration"
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Demonstration*""),"""")"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "Flipped Classroom"
    Range("F7").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Flipped_Classroom*""),"""")"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "Focus Group"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Focus_Group*""),"""")"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "Gamification"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Gamification*""),"""")"
    Range("E10").Select
    ActiveCell.FormulaR1C1 = "Journal-Based"
    Range("F10").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Journal-Based*""),"""")"
    Range("E11").Select
    ActiveCell.FormulaR1C1 = "Panel"
    Range("F11").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Panel*""),"""")"
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "Podcast"
    Range("H5").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Podcast*""),"""")"
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "Role Playing"
    Range("H6").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Role_Playing*""),"""")"
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "Roundtable Discussion"
    Range("H7").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Roundtable_Discussion*""),"""")"
    Range("G8").Select
    ActiveCell.FormulaR1C1 = "Video"
    Range("H8").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Video*""),"""")"
    Range("G9").Select
    ActiveCell.FormulaR1C1 = "Webinar"
    Range("H9").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Webinar*""),"""")"
    Range("G10").Select
    ActiveCell.FormulaR1C1 = "Other"
    Range("H10").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*Other*""),"""")"
    Range("G11").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("H11").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C13:R1000C13,""*N/A*""),"""")"
    Range("F5:F11,H5:H11").Select
    Selection.NumberFormat = "0"
    
    ' Populates Commitment to Change, counts and average confidence
    Range("H14").Select
    ActiveCell.FormulaR1C1 = "Count"
    Range("I14").Select
    ActiveCell.FormulaR1C1 = "Avg. Confidence"
    Range("E15").Select
    ActiveCell.FormulaR1C1 = "Change Prescription"
    Range("H15").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*ChangePrescription*""),"""")"
    Range("I15").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C102:R1000C102),"""")"
    Range("E16").Select
    ActiveCell.FormulaR1C1 = "Clinical Assessment/Physical Exam"
    Range("H16").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*Assessment*""),"""")"
    Range("I16").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C42:R1000C42),"""")"
    Range("E17").Select
    ActiveCell.FormulaR1C1 = "Decrease Dose"
    Range("H17").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*DecreaseDose*""),"""")"
    Range("I17").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C122:R1000C122),"""")"
    Range("E18").Select
    ActiveCell.FormulaR1C1 = "Diagnosis"
    Range("H18").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*Diagnosis*""),"""")"
    Range("I18").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C52:R1000C52),"""")"
    Range("E19").Select
    ActiveCell.FormulaR1C1 = "Education for Patient/Family/Self"
    Range("H19").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*Education*""),"""")"
    Range("I19").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C132:R1000C132),"""")"
    Range("E20").Select
    ActiveCell.FormulaR1C1 = "Formulate Plan of Care"
    Range("H20").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*Formulate*""),"""")"
    Range("I20").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C82:R1000C82),"""")"
    Range("E21").Select
    ActiveCell.FormulaR1C1 = "Increase Dose"
    Range("H21").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*IncreaseDose*""),"""")"
    Range("I21").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C112:R1000C112),"""")"
    Range("E22").Select
    ActiveCell.FormulaR1C1 = "Increase or Decrease Testing"
    Range("H22").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*Testing*""),"""")"
    Range("I22").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C72:R1000C72),"""")"
    Range("E23").Select
    ActiveCell.FormulaR1C1 = "New Prescription"
    Range("H23").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*NewPrescription*""),"""")"
    Range("I23").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C92:R1000C92),"""")"
    Range("E24").Select
    ActiveCell.FormulaR1C1 = "Patient Communication"
    Range("H24").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*Communication*""),"""")"
    Range("I24").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C62:R1000C62),"""")"
    Range("E25").Select
    ActiveCell.FormulaR1C1 = "Other"
    Range("H25").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*Other*""),"""")"
    Range("I25").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C143:R1000C143),"""")"
    Range("E26").Select
    ActiveCell.FormulaR1C1 = "N/A"
    Range("H26").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C36:R1000C36,""*NA*""),"""")"
    Range("H15:H26").Select
    Selection.NumberFormat = "0"
    Range("I15:I26").Select
    Selection.NumberFormat = "0.00"
    
    ' Populates mean and standard deviation for Objectives Likert-scale questions
    Range("B22").Select
    ActiveCell.FormulaR1C1 = "Mean"
    Range("C22").Select
    ActiveCell.FormulaR1C1 = "St. Dev."
    Range("A23").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C16"
    Range("B23").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C16:R1000C16),"""")"
    Range("C23").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C16:R1000C16),"""")"
    Range("A24").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C17"
    Range("B24").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C17:R1000C17),"""")"
    Range("C24").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C17:R1000C17),"""")"
    Range("A25").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C18"
    Range("B25").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C18:R1000C18),"""")"
    Range("C25").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C18:R1000C18),"""")"
    Range("A26").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C19"
    Range("B26").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C19:R1000C19),"""")"
    Range("C26").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C19:R1000C19),"""")"
    Range("A27").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C20"
    Range("B27").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C20:R1000C20),"""")"
    Range("C27").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C20:R1000C20),"""")"
    Range("A28").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C21"
    Range("B28").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C21:R1000C21),"""")"
    Range("C28").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C21:R1000C21),"""")"
    Range("A29").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C22"
    Range("B29").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C22:R1000C22),"""")"
    Range("C29").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C22:R1000C22),"""")"
    Range("A30").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C23"
    Range("B30").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C23:R1000C23),"""")"
    Range("C30").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C23:R1000C23),"""")"
    Range("A31").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C24"
    Range("B31").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C24:R1000C24),"""")"
    Range("C31").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C24:R1000C24),"""")"
    Range("A32").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C25"
    Range("B32").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C25:R1000C25),"""")"
    Range("C32").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C25:R1000C25),"""")"
    Range("A33").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C26"
    Range("B33").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C26:R1000C26),"""")"
    Range("C33").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C26:R1000C26),"""")"
    Range("A34").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C27"
    Range("B34").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C27:R1000C27),"""")"
    Range("C34").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C27:R1000C27),"""")"
    Range("A35").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C28"
    Range("B35").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C28:R1000C28),"""")"
    Range("C35").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C28:R1000C28),"""")"
    Range("A36").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C29"
    Range("B36").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C29:R1000C29),"""")"
    Range("C36").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C29:R1000C29),"""")"
    Range("A37").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C30"
    Range("B37").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C30:R1000C30),"""")"
    Range("C37").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C30:R1000C30),"""")"
    Range("A38").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C31"
    Range("B38").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C31:R1000C31),"""")"
    Range("C38").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C31:R1000C31),"""")"
    Range("A39").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C32"
    Range("B39").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C32:R1000C32),"""")"
    Range("C39").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C32:R1000C32),"""")"
    Range("A40").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C33"
    Range("B40").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C33:R1000C33),"""")"
    Range("C40").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C33:R1000C33),"""")"
    Range("A41").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C34"
    Range("B41").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C34:R1000C34),"""")"
    Range("C41").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C34:R1000C34),"""")"
    Range("A42").Select
    ActiveCell.FormulaR1C1 = "=Data!R2C35"
    Range("B42").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(AVERAGE(Data!R3C35:R1000C35),"""")"
    Range("C42").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(STDEV(Data!R3C35:R1000C35),"""")"
    Range("B23:C42").Select
    Selection.NumberFormat = "0.00"
    
    ' Populates perceived barriers
    Range("H29").Select
    ActiveCell.FormulaR1C1 = "Count"
    Range("E30").Select
    ActiveCell.FormulaR1C1 = "Colleage/System Not Supportive of Change"
    Range("H30").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Colleague/System_Not_Supportive_of_Change*""),"""")"
    Range("E31").Select
    ActiveCell.FormulaR1C1 = "Habit"
    Range("H31").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Habit*""),"""")"
    Range("E32").Select
    ActiveCell.FormulaR1C1 = "Limited Compliance"
    Range("H32").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Limited_Compliance*""),"""")"
    Range("E33").Select
    ActiveCell.FormulaR1C1 = "Limited Experience"
    Range("H33").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Limited_Experience*""),"""")"
    Range("E34").Select
    ActiveCell.FormulaR1C1 = "Limited Opportunity"
    Range("H34").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Limited_Opportunity_(Patients)*""),"""")"
    Range("E35").Select
    ActiveCell.FormulaR1C1 = "Limited Professional Guidelines"
    Range("H35").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Limited_Professional_Guidelines*""),"""")"
    Range("E36").Select
    ActiveCell.FormulaR1C1 = "Limited Resources"
    Range("H36").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Limited_Resources_(Funding,_Equipment,_Cost_of_Treatment)*""),"""")"
    Range("E37").Select
    ActiveCell.FormulaR1C1 = "Limited Time to Assess/Counsel Patients"
    Range("H37").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Limited_Time_to_Assess/Counsel_Patients*""),"""")"
    Range("E38").Select
    ActiveCell.FormulaR1C1 = "Reimbursement/Insurance Issues"
    Range("H38").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(COUNTIF(Data!R3C37:R1000C37,""*Reimbursement/Insurance_Issues*""),"""")"
    Range("E39").Select
    ActiveCell.FormulaR1C1 = "Other"
    Range("H39").Select
    ActiveCell.FormulaR1C1 = "=IFERROR(countif(data!r3c37:r1000c37,""*Other*""),"""")"
    Range("B23:C42").Select
    Selection.NumberFormat = "0.00"

    ' Set column widths and wrap text
    Columns("A:A").ColumnWidth = 80.57
    Columns("B:C").ColumnWidth = 7
    Columns("D:D").ColumnWidth = 6.43
    Columns("E:E").ColumnWidth = 22.86
    Columns("F:F").ColumnWidth = 5
    Columns("G:G").ColumnWidth = 22.86
    Columns("H:H").ColumnWidth = 5
    Columns("I:I").ColumnWidth = 14.29
    Rows("3:42").RowHeight = 15
    Range("A:I").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("B4:C4,B13:C13,B17:C17,B22:C22,H14:I14,H29:H29").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    ' Insert headers, coloring and borders
    
    ' Level 1 Questions
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "Level 1"
    Range("A3:C3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A3:C10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    ' Level 2 Question
    Range("A12").Select
    ActiveCell.FormulaR1C1 = "Level 2"
    Range("A12:C12").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    Range("A12:C14").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    ' CME Questions
    Range("A16").Select
    ActiveCell.FormulaR1C1 = "CME"
    Range("A16:C16").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    Range("A16:C19").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
   
    ' Objectives Questions
    Range("A21").Select
    ActiveCell.FormulaR1C1 = "Objectives"
    Range("A21:C21").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("A21:C42").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    ' Learning Formats
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "Learning Formats"
    Range("E3:H3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("E4:H4").Select
    Selection.Merge
    Range("E3:H11").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    ' Commitment to Change Questions
    Range("E13").Select
    ActiveCell.FormulaR1C1 = "Commitment to Change"
    Range("E13:I13").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("E15:G15").Select
    Selection.Merge
    Range("E16:G16").Select
    Selection.Merge
    Range("E17:G17").Select
    Selection.Merge
    Range("E18:G18").Select
    Selection.Merge
    Range("E19:G19").Select
    Selection.Merge
    Range("E20:G20").Select
    Selection.Merge
    Range("E21:G21").Select
    Selection.Merge
    Range("E22:G22").Select
    Selection.Merge
    Range("E23:G23").Select
    Selection.Merge
    Range("E24:G24").Select
    Selection.Merge
    Range("E25:G25").Select
    Selection.Merge
    Range("E26:G26").Select
    Selection.Merge
    Range("E13:I26").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    ' Perceived Barriers Question
    Range("E28").Select
    ActiveCell.FormulaR1C1 = "Perceived Barriers"
    Range("E28:H28").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("E30:G30").Select
    Selection.Merge
    Range("E31:G31").Select
    Selection.Merge
    Range("E32:G32").Select
    Selection.Merge
    Range("E33:G33").Select
    Selection.Merge
    Range("E34:G34").Select
    Selection.Merge
    Range("E35:G35").Select
    Selection.Merge
    Range("E36:G36").Select
    Selection.Merge
    Range("E37:G37").Select
    Selection.Merge
    Range("E38:G38").Select
    Selection.Merge
    Range("E39:G39").Select
    Selection.Merge
    Range("E28:H39").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Fluff · Apr 28, 2021

Remove this part of the replace code

VBA Code:

, FormulaVersion:=xlReplaceFormula2

jessebh2003 · Apr 28, 2021

Fluff said:
Remove this part of the replace code

VBA Code:

, FormulaVersion:=xlReplaceFormula2

That worked perfectly! Thanks so much.

Fluff · Apr 28, 2021

You're welcome & thanks for the feedback.

Macro Works for Me but Not Others

jessebh2003

Board Regular

Excel Facts

Fluff

MrExcel MVP, Moderator

jessebh2003

Board Regular

Fluff

MrExcel MVP, Moderator

Similar threads

Forum statistics

Share this page

Macro Works for Me but Not Others

jessebh2003

Board Regular

Excel Facts

Fluff

MrExcel MVP, Moderator

jessebh2003

Board Regular

Fluff

MrExcel MVP, Moderator

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock