Macro Works for Me but Not Others

J

jessebh2003

Board Regular
Joined
Feb 28, 2020
Messages
71
Office Version
  1. 365
Platform
  1. Windows
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
ABCDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBXBYBZCACBCCCDCECFCGCHCICJCKCLCMCNCOCPCQCRCSCTCUCVCWCXCYCZDADBDCDDDEDFDGDHDIDJDKDLDMDNDODPDQDRDSDTDUDVDWDXDYDZEAEBECEDEEEFEGEHEIEJEKELEMENEOEPEQERESETEUEVEWEXEYEZFAFBFCFDFEFFFGFHFIFJFKFLFMFNFOFPFQFRFSFTFUFVFWFXFYFZGAGBGCGDGEGFGGGHGIGJGKGLGMGNGOGP
1FormSubmissionIDCreatedCreatedShortDateLastChangedFullNameFirstNameLastNameLastFirstFormIDEventIDntd_donoteditevaluationtitleeventdetailsCreditConflictPhysicianTypeHoursClaimedHoursOKactivitymaxhoursMaxCreditsABIMMOCCreditsmocgrantedpermissionMOC_ID1MOC_ID2MOC_ID3MOC_ID4MOC_ID5MOC_ID6MOC_ID7MOC_ID8MOC_ID9MOC_ID10MOC_ID11MOC_ID12BirthMonthBirthDayWhatIsYourPrincipalActivityWhatIsYourDisciplineTheContentWasRelevantToMyWorkThisEventProvidedMeWithNewInformIIntendToUseWhatILearnedFromThiscomment_IfYouAgreeWithThePrevioufaclistfacultyknowledgeablefacultyeffectivefacultyresponsivefacultyorganizedcomment_AdditionalSpeakerCommentOverallTheConferenceWasFreeOfBiaTheLearningEnvironmentWasConduciWhatOtherLearningFormatsWouldYouIfOtherPleaseSpecifycomment_PleaseProvideUsWithSuggeobj0obj1obj2obj3obj4obj5obj6obj7obj8obj9obj10obj11obj12obj13obj14obj15obj16obj17obj18obj19Section129CommitmentToChangeAreasPleaseIdentifyAnyBarriersYouPercIfOtherBarrierPleaseSpecifyIfYouDoNotPlanToMakeAChangeInYouIfOtherReasonPleaseSpecifycomment_change_area1scale_area1area1_implementcomment_implement_area1area1_barrier_2area1_barrier_3area1_barrier_4area1_barrier_5area1_barrier_6comment_area1_addressbarrierscomment_change_area2scale_area2area2_implementcomment_implement_area2area2_barrier_2area2_barrier_3area2_barrier_4area2_barrier_5area2_barrier_6comment_area2_addressbarrierscomment_change_area3scale_area3area3_implementcomment_implement_area3area3_barrier_2area3_barrier_3area3_barrier_4area3_barrier_5area3_barrier_6comment_area3_addressbarrierscomment_change_area4scale_area4area4_implementcomment_implement_area4area4_barrier_2area4_barrier_3area4_barrier_4area4_barrier_5area4_barrier_6comment_area4_addressbarrierscomment_change_area5scale_area5area5_implementcomment_implement_area5area5_barrier_2area5_barrier_3area5_barrier_4area5_barrier_5area5_barrier_6comment_area5_addressbarrierscomment_change_area6scale_area6area6_implementcomment_implement_area6area6_barrier_2area6_barrier_3area6_barrier_4area6_barrier_5area6_barrier_6comment_area6_addressbarrierscomment_change_area7scale_area7area7_implementcomment_implement_area7area7_barrier_2area7_barrier_3area7_barrier_4area7_barrier_5area7_barrier_6comment_area7_addressbarrierscomment_change_area8scale_area8area8_implementcomment_implement_area8area8_barrier_2area8_barrier_3area8_barrier_4area8_barrier_5area8_barrier_6comment_area8_addressbarrierscomment_change_area9scale_area9area9_implementcomment_implement_area9area9_barrier_2area9_barrier_3area9_barrier_4area9_barrier_5area9_barrier_6comment_area9_addressbarrierscomment_change_area10scale_area10area10_implementcomment_implement_area10area10_barrier_2area10_barrier_3area10_barrier_4area10_barrier_5area10_barrier_6comment_area10_addressbarriersspecify_other_area11comment_change_area11scale_area11area11_implementcomment_implement_area11area11_barrier_2area11_barrier_3area11_barrier_4area11_barrier_5area11_barrier_6comment_area11_addressbarriersEvalFollowUpTimeSelectAtLeastOneOfTheFollowingChIfOtherChangePleaseSpecifyuseridpresentationidusertypeDateCompletedLockedEmail
227109########43794########John Doe, MDJohnDoeJohn Doe12152900<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 2019Renaissance Columbus Downtown Hotel, Columbus, OH<br>2019-10-12 07:30:00.0<br><p><div style="column-count:2"><strong>Speaker(s):</strong><br>Pertti Aarnio, MD, PhD<br>Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA<br>Gary Ansel, MD, FACC, FSCAI<br>Rachelle Betsy, MD<br>Sam Bittar, MD, FACP, FSVM, RPVI<br>Geoffrey Blossom, MD, FACC<br>Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS<br>Charles F Botti Jr., MD, FACC, RPVI<br>Robert Brightwell, DO<br>John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS<br>John Elefteriades, MD, FACS, FICA<br>David Epstein, MD<br>Jürgen Falkensammer, MD, FEBVS, FICA<br>Randall W Franz, MD, FACS, FICA, RVT, RPVI<br>Simon Fraser, DO<br>Peter George, MD<br>James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA<br>Kanny S Grewal, MD<br>Petr Hájek, MD, PhD, FICA<br>Kristian S Hartanto, MD<br>Jon C Henry, MD, MS, RPVI<br>Martin Horváth, MD<br>Maria Patricia Inggriani, MD<br>Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM<br>Lucy LaPerna, DO, FSVM, RPVI, RVT<br>Frank Manetta, MD, FICA<br>Stephen Markovich, MD<br>George Meier III, MD, RVT, FACS<br>Ernesto P Molmenti, MD, PhD, MBA, FICA<br>Asevano Christobed Panjaitan, MD<br>John Phillips, MD<br>Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA<br>Mohammad Galih Pratama, MD<br>Jeffrey Prem, MD, FACS, FICA<br>Charles Pugar, DO<br>Sibu Saha, MD, MBA, FICA<br>Thomas Salamon, MD<br>Rony M. Santoso, MD, PhD<br>Richard Schutzer, MD, FACS, FICA<br>Robert Schwartz, MD, FACS<br>Rajinder P Sharma, MD<br>Michael Silva Jr., MD, FACS<br>Mitch Silver, DO, FACC, FSVM, RPVI<br>Sem Sitanggang, MD<br>Jean Starr, MD, DFSVS, RPVI<br>Cyril Štechovský, MD<br>Kevin Stiver, MD, MS<br>Michael Tempelhof, MD<br>Erickson Tenorio, MD<br>Kui Ting Teong, MBBS<br>Josef Veselka, MD, PhD, FICA<br>Nirav Vora, MD<br>Michael Winkler, MD, FSCCT, FICA<br>Wei Zhou, MD, FACS, FICA<br></div></p>You cannot select both AMA PRA Category 1 credits and non-physician Attendance credits. Please choose one or the other.10170&#160;No91Inpatient & OutpatientPhysician (e.g. MD, DO, PhD, etc.)AgreeAgreeAgree<strong>Speaker(s):</strong><br>Pertti Aarnio, MD, PhD<br>Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA<br>Gary Ansel, MD, FACC, FSCAI<br>Rachelle Betsy, MD<br>Sam Bittar, MD, FACP, FSVM, RPVI<br>Geoffrey Blossom, MD, FACC<br>Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS<br>Charles F Botti Jr., MD, FACC, RPVI<br>Robert Brightwell, DO<br>John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS<br>John Elefteriades, MD, FACS, FICA<br>David Epstein, MD<br>Jürgen Falkensammer, MD, FEBVS, FICA<br>Randall W Franz, MD, FACS, FICA, RVT, RPVI<br>Simon Fraser, DO<br>Peter George, MD<br>James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA<br>Kanny S Grewal, MD<br>Petr Hájek, MD, PhD, FICA<br>Kristian S Hartanto, MD<br>Jon C Henry, MD, MS, RPVI<br>Martin Horváth, MD<br>Maria Patricia Inggriani, MD<br>Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM<br>Lucy LaPerna, DO, FSVM, RPVI, RVT<br>Frank Manetta, MD, FICA<br>Stephen Markovich, MD<br>George Meier III, MD, RVT, FACS<br>Ernesto P Molmenti, MD, PhD, MBA, FICA<br>Asevano Christobed Panjaitan, MD<br>John Phillips, MD<br>Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA<br>Mohammad Galih Pratama, MD<br>Jeffrey Prem, MD, FACS, FICA<br>Charles Pugar, DO<br>Sibu Saha, MD, MBA, FICA<br>Thomas Salamon, MD<br>Rony M. Santoso, MD, PhD<br>Richard Schutzer, MD, FACS, FICA<br>Robert Schwartz, MD, FACS<br>Rajinder P Sharma, MD<br>Michael Silva Jr., MD, FACS<br>Mitch Silver, DO, FACC, FSVM, RPVI<br>Sem Sitanggang, MD<br>Jean Starr, MD, DFSVS, RPVI<br>Cyril Štechovský, MD<br>Kevin Stiver, MD, MS<br>Michael Tempelhof, MD<br>Erickson Tenorio, MD<br>Kui Ting Teong, MBBS<br>Josef Veselka, MD, PhD, FICA<br>Nirav Vora, MD<br>Michael Winkler, MD, FSCCT, FICA<br>Wei Zhou, MD, FACS, FICA<br>AgreeAgreeAgreeAgreeAgreeAgreeCase_Studycase based presentationsAgreeAgreeAgreeAgreeAgreeAgreeTestingHabitOtheralready doingChose the most cost/effective study890880043794John.Doe@email.com
325391########43756########John Doe, MDJohnDoeJohn Doe12152900<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 2019Renaissance Columbus Downtown Hotel, Columbus, OH<br>2019-10-12 07:30:00.0<br><p><div style="column-count:2"><strong>Speaker(s):</strong><br>Pertti Aarnio, MD, PhD<br>Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA<br>Gary Ansel, MD, FACC, FSCAI<br>Rachelle Betsy, MD<br>Sam Bittar, MD, FACP, FSVM, RPVI<br>Geoffrey Blossom, MD, FACC<br>Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS<br>Charles F Botti Jr., MD, FACC, RPVI<br>Robert Brightwell, DO<br>John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS<br>John Elefteriades, MD, FACS, FICA<br>David Epstein, MD<br>Jürgen Falkensammer, MD, FEBVS, FICA<br>Randall W Franz, MD, FACS, FICA, RVT, RPVI<br>Simon Fraser, DO<br>Peter George, MD<br>James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA<br>Kanny S Grewal, MD, FACC, FASE, FASNC<br>Petr Hájek, MD, PhD, FICA<br>Kristian S Hartanto, MD<br>Jon C Henry, MD, MS, RPVI<br>Martin Horváth, MD<br>Maria Patricia Inggriani, MD<br>Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM<br>Lucy LaPerna, DO, FSVM, RPVI, RVT<br>Frank Manetta, MD, FICA<br>Stephen Markovich, MD<br>George Meier III, MD, RVT, FACS<br>Ernesto P Molmenti, MD, PhD, MBA, FICA<br>Asevano Christobed Panjaitan, MD<br>John Phillips, MD<br>Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA<br>Mohammad Galih Pratama, MD<br>Jeffrey Prem, MD, FACS, FICA<br>Charles Pugar, DO<br>Sibu Saha, MD, MBA, FICA<br>Thomas Salamon, MD<br>Rony M. Santoso, MD, PhD<br>Richard Schutzer, MD, FACS, FICA<br>Robert Schwartz, MD, FACS<br>Rajinder P Sharma, MD<br>Michael Silva Jr., MD, FACS<br>Mitch Silver, DO, FACC, FSVM, RPVI<br>Sem Sitanggang, MD<br>Jean Starr, MD, DFSVS, RPVI<br>Cyril Štechovský, MD<br>Kevin Stiver, MD, MS<br>Michael Tempelhof, MD, MSc, FACC, FSCAI, RPVI<br>Erickson Tenorio, MD<br>Kui Ting Teong, MBBS<br>Josef Veselka, MD, PhD, FICA<br>Nirav Vora, MD<br>Michael Winkler, MD, FSCCT, FICA<br>Wei Zhou, MD, FACS, FICA<br></div></p>You cannot select both AMA PRA Category 1 credits and non-physician Attendance credits. Please choose one or the other.30170&#160;No93Inpatient & OutpatientAllied Healthcare Professional (e.g. SLP, PT, OT, RT, EMT, etc.)Strongly AgreeStrongly AgreeStrongly AgreeDr Franz did an excellent presentation on aortic repair as a sonographer we routinely scan and follow aneurysm of all types. <strong>Speaker(s):</strong><br>Pertti Aarnio, MD, PhD<br>Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA<br>Gary Ansel, MD, FACC, FSCAI<br>Rachelle Betsy, MD<br>Sam Bittar, MD, FACP, FSVM, RPVI<br>Geoffrey Blossom, MD, FACC<br>Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS<br>Charles F Botti Jr., MD, FACC, RPVI<br>Robert Brightwell, DO<br>John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS<br>John Elefteriades, MD, FACS, FICA<br>David Epstein, MD<br>Jürgen Falkensammer, MD, FEBVS, FICA<br>Randall W Franz, MD, FACS, FICA, RVT, RPVI<br>Simon Fraser, DO<br>Peter George, MD<br>James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA<br>Kanny S Grewal, MD, FACC, FASE, FASNC<br>Petr Hájek, MD, PhD, FICA<br>Kristian S Hartanto, MD<br>Jon C Henry, MD, MS, RPVI<br>Martin Horváth, MD<br>Maria Patricia Inggriani, MD<br>Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM<br>Lucy LaPerna, DO, FSVM, RPVI, RVT<br>Frank Manetta, MD, FICA<br>Stephen Markovich, MD<br>George Meier III, MD, RVT, FACS<br>Ernesto P Molmenti, MD, PhD, MBA, FICA<br>Asevano Christobed Panjaitan, MD<br>John Phillips, MD<br>Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA<br>Mohammad Galih Pratama, MD<br>Jeffrey Prem, MD, FACS, FICA<br>Charles Pugar, DO<br>Sibu Saha, MD, MBA, FICA<br>Thomas Salamon, MD<br>Rony M. Santoso, MD, PhD<br>Richard Schutzer, MD, FACS, FICA<br>Robert Schwartz, MD, FACS<br>Rajinder P Sharma, MD<br>Michael Silva Jr., MD, FACS<br>Mitch Silver, DO, FACC, FSVM, RPVI<br>Sem Sitanggang, MD<br>Jean Starr, MD, DFSVS, RPVI<br>Cyril Štechovský, MD<br>Kevin Stiver, MD, MS<br>Michael Tempelhof, MD, MSc, FACC, FSCAI, RPVI<br>Erickson Tenorio, MD<br>Kui Ting Teong, MBBS<br>Josef Veselka, MD, PhD, FICA<br>Nirav Vora, MD<br>Michael Winkler, MD, FSCCT, FICA<br>Wei Zhou, MD, FACS, FICA<br>Strongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeDr 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 AgreeStrongly AgreeN/AThe venue was spacious, good sound quality and the catered food was excellent.Strongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeNALimited_of_Opportunity_(Patients).Other...1090950043756John.Doe@email.com
425444########43759########John Doe, MDJohnDoeJohn Doe12152900<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 2019Renaissance Columbus Downtown Hotel, Columbus, OH<br>2019-10-12 07:30:00.0<br><p><div style="column-count:2"><strong>Speaker(s):</strong><br>Pertti Aarnio, MD, PhD<br>Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA<br>Gary Ansel, MD, FACC, FSCAI<br>Rachelle Betsy, MD<br>Sam Bittar, MD, FACP, FSVM, RPVI<br>Geoffrey Blossom, MD, FACC<br>Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS<br>Charles F Botti Jr., MD, FACC, RPVI<br>Robert Brightwell, DO<br>John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS<br>John Elefteriades, MD, FACS, FICA<br>David Epstein, MD<br>Jürgen Falkensammer, MD, FEBVS, FICA<br>Randall W Franz, MD, FACS, FICA, RVT, RPVI<br>Simon Fraser, DO<br>Peter George, MD<br>James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA<br>Kanny S Grewal, MD, FACC, FASE, FASNC<br>Petr Hájek, MD, PhD, FICA<br>Kristian S Hartanto, MD<br>Jon C Henry, MD, MS, RPVI<br>Martin Horváth, MD<br>Maria Patricia Inggriani, MD<br>Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM<br>Lucy LaPerna, DO, FSVM, RPVI, RVT<br>Frank Manetta, MD, FICA<br>Stephen Markovich, MD<br>George Meier III, MD, RVT, FACS<br>Ernesto P Molmenti, MD, PhD, MBA, FICA<br>Asevano Christobed Panjaitan, MD<br>John Phillips, MD<br>Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA<br>Mohammad Galih Pratama, MD<br>Jeffrey Prem, MD, FACS, FICA<br>Charles Pugar, DO<br>Sibu Saha, MD, MBA, FICA<br>Thomas Salamon, MD<br>Rony M. Santoso, MD, PhD<br>Richard Schutzer, MD, FACS, FICA<br>Robert Schwartz, MD, FACS<br>Rajinder P Sharma, MD<br>Michael Silva Jr., MD, FACS<br>Mitch Silver, DO, FACC, FSVM, RPVI<br>Sem Sitanggang, MD<br>Jean Starr, MD, DFSVS, RPVI<br>Cyril Štechovský, MD<br>Kevin Stiver, MD, MS<br>Michael Tempelhof, MD, MSc, FACC, FSCAI, RPVI<br>Erickson Tenorio, MD<br>Kui Ting Teong, MBBS<br>Josef Veselka, MD, PhD, FICA<br>Nirav Vora, MD<br>Michael Winkler, MD, FSCCT, FICA<br>Wei Zhou, MD, FACS, FICA<br></div></p>You cannot select both AMA PRA Category 1 credits and non-physician Attendance credits. Please choose one or the other.1 320170&#160;No417Inpatient & OutpatientPhysician (e.g. MD, DO, PhD, etc.)Strongly AgreeStrongly AgreeStrongly Agree<strong>Speaker(s):</strong><br>Pertti Aarnio, MD, PhD<br>Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA<br>Gary Ansel, MD, FACC, FSCAI<br>Rachelle Betsy, MD<br>Sam Bittar, MD, FACP, FSVM, RPVI<br>Geoffrey Blossom, MD, FACC<br>Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS<br>Charles F Botti Jr., MD, FACC, RPVI<br>Robert Brightwell, DO<br>John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS<br>John Elefteriades, MD, FACS, FICA<br>David Epstein, MD<br>Jürgen Falkensammer, MD, FEBVS, FICA<br>Randall W Franz, MD, FACS, FICA, RVT, RPVI<br>Simon Fraser, DO<br>Peter George, MD<br>James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA<br>Kanny S Grewal, MD, FACC, FASE, FASNC<br>Petr Hájek, MD, PhD, FICA<br>Kristian S Hartanto, MD<br>Jon C Henry, MD, MS, RPVI<br>Martin Horváth, MD<br>Maria Patricia Inggriani, MD<br>Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM<br>Lucy LaPerna, DO, FSVM, RPVI, RVT<br>Frank Manetta, MD, FICA<br>Stephen Markovich, MD<br>George Meier III, MD, RVT, FACS<br>Ernesto P Molmenti, MD, PhD, MBA, FICA<br>Asevano Christobed Panjaitan, MD<br>John Phillips, MD<br>Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA<br>Mohammad Galih Pratama, MD<br>Jeffrey Prem, MD, FACS, FICA<br>Charles Pugar, DO<br>Sibu Saha, MD, MBA, FICA<br>Thomas Salamon, MD<br>Rony M. Santoso, MD, PhD<br>Richard Schutzer, MD, FACS, FICA<br>Robert Schwartz, MD, FACS<br>Rajinder P Sharma, MD<br>Michael Silva Jr., MD, FACS<br>Mitch Silver, DO, FACC, FSVM, RPVI<br>Sem Sitanggang, MD<br>Jean Starr, MD, DFSVS, RPVI<br>Cyril Štechovský, MD<br>Kevin Stiver, MD, MS<br>Michael Tempelhof, MD, MSc, FACC, FSCAI, RPVI<br>Erickson Tenorio, MD<br>Kui Ting Teong, MBBS<br>Josef Veselka, MD, PhD, FICA<br>Nirav Vora, MD<br>Michael Winkler, MD, FSCCT, FICA<br>Wei Zhou, MD, FACS, FICA<br>Strongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeCase_Study WebinarStrongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeAssessment Diagnosis Communication FormulateLimited_of_Opportunity_(Patients) Reimbursement/Insurance_Issues Limited_Time_to_Assess/Counsel_PatientsConfirmed_my_Current_PracticeI will make more experties. 10treatment based on guideline10will inform patient better10i will offer the newest treatment for patient1090227800043759John.Doe@email.com
525135########43752########John Doe, MDJohnDoeJohn Doe12152900<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 2019Renaissance Columbus Downtown Hotel, Columbus, OH<br>2019-10-12 07:30:00.0<br><p><div style="column-count:2"><strong>Speaker(s):</strong><br>Pertti Aarnio, MD, PhD<br>Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA<br>Gary Ansel, MD, FACC, FSCAI<br>Rachelle Betsy, MD<br>Sam Bittar, MD, FACP, FSVM, RPVI<br>Geoffrey Blossom, MD, FACC<br>Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS<br>Charles F Botti Jr., MD, FACC, RPVI<br>Robert Brightwell, DO<br>John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS<br>John Elefteriades, MD, FACS, FICA<br>David Epstein, MD<br>Jürgen Falkensammer, MD, FEBVS, FICA<br>Randall W Franz, MD, FACS, FICA, RVT, RPVI<br>Simon Fraser, DO<br>Peter George, MD<br>James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA<br>Kanny S Grewal, MD<br>Petr Hájek, MD, PhD, FICA<br>Kristian S Hartanto, MD<br>Jon C Henry, MD, MS, RPVI<br>Martin Horváth, MD<br>Maria Patricia Inggriani, MD<br>Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM<br>Lucy LaPerna, DO, FSVM, RPVI, RVT<br>Frank Manetta, MD, FICA<br>Stephen Markovich, MD<br>George Meier III, MD, RVT, FACS<br>Ernesto P Molmenti, MD, PhD, MBA, FICA<br>Asevano Christobed Panjaitan, MD<br>John Phillips, MD<br>Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA<br>Mohammad Galih Pratama, MD<br>Jeffrey Prem, MD, FACS, FICA<br>Charles Pugar, DO<br>Sibu Saha, MD, MBA, FICA<br>Thomas Salamon, MD<br>Rony M. Santoso, MD, PhD<br>Richard Schutzer, MD, FACS, FICA<br>Robert Schwartz, MD, FACS<br>Rajinder P Sharma, MD<br>Michael Silva Jr., MD, FACS<br>Mitch Silver, DO, FACC, FSVM, RPVI<br>Sem Sitanggang, MD<br>Jean Starr, MD, DFSVS, RPVI<br>Cyril Štechovský, MD<br>Kevin Stiver, MD, MS<br>Michael Tempelhof, MD<br>Erickson Tenorio, MD<br>Kui Ting Teong, MBBS<br>Josef Veselka, MD, PhD, FICA<br>Nirav Vora, MD<br>Michael Winkler, MD, FSCCT, FICA<br>Wei Zhou, MD, FACS, FICA<br></div></p>You cannot select both AMA PRA Category 1 credits and non-physician Attendance credits. Please choose one or the other.10170&#160;No216Inpatient & OutpatientPhysician (e.g. MD, DO, PhD, etc.)Strongly AgreeStrongly AgreeStrongly AgreeWill incorporate the new data into patient care.<strong>Speaker(s):</strong><br>Pertti Aarnio, MD, PhD<br>Rio Alexsandro, MD, PGDCRMW, PGDTM, FICA<br>Gary Ansel, MD, FACC, FSCAI<br>Rachelle Betsy, MD<br>Sam Bittar, MD, FACP, FSVM, RPVI<br>Geoffrey Blossom, MD, FACC<br>Roland Boey, MD, MACTM, MRCP, MRCPS, FRCP, FAMS<br>Charles F Botti Jr., MD, FACC, RPVI<br>Robert Brightwell, DO<br>John D Corson, MB, ChB, FRCS(Eng), FRCS(Edin), FACS<br>John Elefteriades, MD, FACS, FICA<br>David Epstein, MD<br>Jürgen Falkensammer, MD, FEBVS, FICA<br>Randall W Franz, MD, FACS, FICA, RVT, RPVI<br>Simon Fraser, DO<br>Peter George, MD<br>James Glazier, MD, FRCPI, FRCP, FACP, VACC, FSCAI, RPVI, FICA<br>Kanny S Grewal, MD<br>Petr Hájek, MD, PhD, FICA<br>Kristian S Hartanto, MD<br>Jon C Henry, MD, MS, RPVI<br>Martin Horváth, MD<br>Maria Patricia Inggriani, MD<br>Raghu Kolluri, MD, MS, RVT, RPVI, FACC, FACP, FSVM<br>Lucy LaPerna, DO, FSVM, RPVI, RVT<br>Frank Manetta, MD, FICA<br>Stephen Markovich, MD<br>George Meier III, MD, RVT, FACS<br>Ernesto P Molmenti, MD, PhD, MBA, FICA<br>Asevano Christobed Panjaitan, MD<br>John Phillips, MD<br>Kailash Prasad, MD, PhD, DSc, FRCPC, FACC, FIACS, FACA, FICA<br>Mohammad Galih Pratama, MD<br>Jeffrey Prem, MD, FACS, FICA<br>Charles Pugar, DO<br>Sibu Saha, MD, MBA, FICA<br>Thomas Salamon, MD<br>Rony M. Santoso, MD, PhD<br>Richard Schutzer, MD, FACS, FICA<br>Robert Schwartz, MD, FACS<br>Rajinder P Sharma, MD<br>Michael Silva Jr., MD, FACS<br>Mitch Silver, DO, FACC, FSVM, RPVI<br>Sem Sitanggang, MD<br>Jean Starr, MD, DFSVS, RPVI<br>Cyril Štechovský, MD<br>Kevin Stiver, MD, MS<br>Michael Tempelhof, MD<br>Erickson Tenorio, MD<br>Kui Ting Teong, MBBS<br>Josef Veselka, MD, PhD, FICA<br>Nirav Vora, MD<br>Michael Winkler, MD, FSCCT, FICA<br>Wei Zhou, MD, FACS, FICA<br>Strongly AgreeStrongly AgreeStrongly AgreeStrongly AgreeGood variety of speakers. Strongly AgreeStrongly AgreeN/AMore case based approaches AgreeAgreeAgreeAgreeAgreeAgreeFormulateLimited_Resources_(Funding,_Equipment,_Cost_of_Treatment)Confirmed_my_Current_PracticeMore outcome measurements6Yesimproved patient satisfaction904910043752John.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
 

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.
Sort by date Sort by votes
Remove this part of the replace code
VBA Code: 
, FormulaVersion:=xlReplaceFormula2
 
Upvote 0
Solution
You must log in or register to reply here.

Similar threads

K
  • Solved
formating question
Replies
3
Views
66
Micron
M
K
  • Solved
create a button that do actions
2 3
Replies
22
Views
847
kerm007
K
J
  • Question
VBA Code to Add Rows is slowing down
Replies
5
Views
495
JayB0730
J
C
  • Question
How to get my macro to stop at the last recognized line
Replies
6
Views
199
Coco1
C
L
  • Locked
  • Question
Help Cleaning Up Code
Replies
2
Views
321
RoryA
RoryA

Forum statistics

Threads
1,214,642
Messages
6,120,701
Members
448,980
Latest member
CarlosWin

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top