Vba To Set Duplex Printing - I have spent... - Free Excel Help

Vba To Set Duplex Printing - I have spent hours searching for code that will ... Become a master of VBA and Macros in Excel and learn how to automate all of ... Home ExcelCategories (35%SaleEndsJan.26) ExcelVBACourse-FromBeginnertoExpert 200+VideoLessons 50+HoursofVideo 200+ExcelGuides BecomeamasterofVBAandMacrosinExcelandlearnhowtoautomateallofyourtasksinExcelwiththisonlinecourse.(NoVBAexperiencerequired.) ViewCourse (40%DiscountEndsSoon!) VbaToSetDuplexPrinting SimilarTopics FullExcelVBACourse-BeginnertoExpert(40%Discount) VbaToSetDuplexPrinting-Excel Ihavespenthourssearchingforcodethatwillworktosettheprintertoduplexprintingbeforeprintingajob.IhavenarroweditdowntothiscodefromaMicrosoftsite,butitcrashesrightaway."Printer"ishighlighted,andtheerrorsays"variablenotdefined." SubSetPrinterToDuplex()    SetPrinterDuplexPrinter.DeviceName,2EndSub  '==================================================================  'SetPrinterDuplex  '  '  ProgrammaticallysettheDuplexflagforthespecifiedprinter  '  driver'sdefaultproperties.  '  '  Returns:Trueonsuccess,Falseonerror.(Anerrorwillalso  '  displayamessagebox.Thisisdoneforinformationalvalue  '  only.Youshouldmodifythecodetosupportbettererror  '  handlinginyourproductionapplication.)  '  '  Parameters:  '    sPrinterName-Thenameoftheprintertobeused.  '  '    nDuplexSetting-Oneofthefollowingstandardsettings:  '      1=None  '      2=Duplexonlongedge(book)  '      3=Duplexonshortedge(legal)  '  '==================================================================  PublicFunctionSetPrinterDuplex(ByValsPrinterNameAsString,_      ByValnDuplexSettingAsLong)AsBoolean      DimhPrinterAsLong      DimpdAsPRINTER_DEFAULTS      DimpinfoAsPRINTER_INFO_2      DimdmAsDEVMODE      DimyDevModeData()AsByte      DimyPInfoMemory()AsByte      DimnBytesNeededAsLong      DimnRetAsLong,nJunkAsLong        OnErrorGoTocleanup        If(nDuplexSetting<1)Or(nDuplexSetting>3)Then        MsgBox"Error:dwDuplexSettingisincorrect."        ExitFunction      EndIf            pd.DesiredAccess=PRINTER_ALL_ACCESS      nRet=OpenPrinter(sPrinterName,hPrinter,pd)      If(nRet=0)Or(hPrinter=0)Then        IfErr.LastDllError=5Then            MsgBox"Accessdenied--Seethearticleformoreinfo."        Else            MsgBox"Cannotopentheprinterspecified"&_              "(makesuretheprinternameiscorrect)."        EndIf        ExitFunction      EndIf        nRet=DocumentProperties(0,hPrinter,sPrinterName,0,0,0)      If(nRet<0)Then        MsgBox"CannotgetthesizeoftheDEVMODEstructure."        GoTocleanup      EndIf        ReDimyDevModeData(nRet+100)AsByte      nRet=DocumentProperties(0,hPrinter,sPrinterName,_                  VarPtr(yDevModeData(0)),0,DM_OUT_BUFFER)      If(nRet<0)Then        MsgBox"CannotgettheDEVMODEstructure."        GoTocleanup      EndIf        CallCopyMemory(dm,yDevModeData(0),Len(dm))        IfNotCBool(dm.dmFieldsAndDM_DUPLEX)Then        MsgBox"Youcannotmodifytheduplexflagforthisprinter"&_              "becauseitdoesnotsupportduplexorthedriver"&_              "doesnotsupportsettingitfromtheWindowsAPI."        GoTocleanup      EndIf        dm.dmDuplex=nDuplexSetting      CallCopyMemory(yDevModeData(0),dm,Len(dm))        nRet=DocumentProperties(0,hPrinter,sPrinterName,_        VarPtr(yDevModeData(0)),VarPtr(yDevModeData(0)),_        DM_IN_BUFFEROrDM_OUT_BUFFER)      If(nRet<0)Then        MsgBox"Unabletosetduplexsettingtothisprinter."        GoTocleanup      EndIf        CallGetPrinter(hPrinter,2,0,0,nBytesNeeded)      If(nBytesNeeded=0)ThenGoTocleanup        ReDimyPInfoMemory(nBytesNeeded+100)AsByte      nRet=GetPrinter(hPrinter,2,yPInfoMemory(0),nBytesNeeded,nJunk)      If(nRet=0)Then        MsgBox"Unabletogetsharedprintersettings."        GoTocleanup      EndIf        CallCopyMemory(pinfo,yPInfoMemory(0),Len(pinfo))      pinfo.pDevmode=VarPtr(yDevModeData(0))      pinfo.pSecurityDescriptor=0      CallCopyMemory(yPInfoMemory(0),pinfo,Len(pinfo))        nRet=SetPrinter(hPrinter,2,yPInfoMemory(0),0)      If(nRet=0)Then        MsgBox"Unabletosetsharedprintersettings."      EndIf        SetPrinterDuplex=CBool(nRet)cleanup:      If(hPrinter0)ThenCallClosePrinter(hPrinter)    EndFunction Thisisallatthetopofthemodulealso... OptionExplicit  PublicTypePRINTER_DEFAULTS      pDatatypeAsLong      pDevmodeAsLong      DesiredAccessAsLong  EndType  PublicTypePRINTER_INFO_2      pServerNameAsLong      pPrinterNameAsLong      pShareNameAsLong      pPortNameAsLong      pDriverNameAsLong      pCommentAsLong      pLocationAsLong      pDevmodeAsLong      'PointertoDEVMODE      pSepFileAsLong      pPrintProcessorAsLong      pDatatypeAsLong      pParametersAsLong      pSecurityDescriptorAsLong  'PointertoSECURITY_DESCRIPTOR      AttributesAsLong      PriorityAsLong      DefaultPriorityAsLong      StartTimeAsLong      UntilTimeAsLong      StatusAsLong      cJobsAsLong      AveragePPMAsLong  EndType  PublicTypeDEVMODE      dmDeviceNameAsString*32      dmSpecVersionAsInteger      dmDriverVersionAsInteger      dmSizeAsInteger      dmDriverExtraAsInteger      dmFieldsAsLong      dmOrientationAsInteger      dmPaperSizeAsInteger      dmPaperLengthAsInteger      dmPaperWidthAsInteger      dmScaleAsInteger      dmCopiesAsInteger      dmDefaultSourceAsInteger      dmPrintQualityAsInteger      dmColorAsInteger      dmDuplexAsInteger      dmYResolutionAsInteger      dmTTOptionAsInteger      dmCollateAsInteger      dmFormNameAsString*32      dmUnusedPaddingAsInteger      dmBitsPerPelAsInteger      dmPelsWidthAsLong      dmPelsHeightAsLong      dmDisplayFlagsAsLong      dmDisplayFrequencyAsLong      dmICMMethodAsLong      dmICMIntentAsLong      dmMediaTypeAsLong      dmDitherTypeAsLong      dmReserved1AsLong      dmReserved2AsLong  EndType  PublicConstDM_DUPLEX=&H1000&  PublicConstDM_IN_BUFFER=8  PublicConstDM_OUT_BUFFER=2  PublicConstPRINTER_ACCESS_ADMINISTER=&H4  PublicConstPRINTER_ACCESS_USE=&H8  PublicConstSTANDARD_RIGHTS_REQUIRED=&HF0000  PublicConstPRINTER_ALL_ACCESS=(STANDARD_RIGHTS_REQUIREDOr_            PRINTER_ACCESS_ADMINISTEROrPRINTER_ACCESS_USE)  PublicDeclareFunctionClosePrinterLib"winspool.drv"_    (ByValhPrinterAsLong)AsLong  PublicDeclareFunctionDocumentPropertiesLib"winspool.drv"_    Alias"DocumentPropertiesA"(ByValhwndAsLong,_    ByValhPrinterAsLong,ByValpDeviceNameAsString,_    ByValpDevModeOutputAsLong,ByValpDevModeInputAsLong,_    ByValfModeAsLong)AsLong  PublicDeclareFunctionGetPrinterLib"winspool.drv"Alias_    "GetPrinterA"(ByValhPrinterAsLong,ByValLevelAsLong,_    pPrinterAsByte,ByValcbBufAsLong,pcbNeededAsLong)AsLong  PublicDeclareFunctionOpenPrinterLib"winspool.drv"Alias_    "OpenPrinterA"(ByValpPrinterNameAsString,phPrinterAsLong,_    pDefaultAsPRINTER_DEFAULTS)AsLong  PublicDeclareFunctionSetPrinterLib"winspool.drv"Alias_    "SetPrinterA"(ByValhPrinterAsLong,ByValLevelAsLong,_    pPrinterAsByte,ByValCommandAsLong)AsLong  PublicDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"_    (pDestAsAny,pSourceAsAny,ByValcbLengthAsLong) Anyhelpwouldbeappreciated,includingotherways,ifany,tosettheprintertoduplex.Ihavealsotriedsendkeysmethods,buttheyhavefailed. Thanks! ViewAnswer NextResult VBA/MacrosCourse(40%Discount) (40%SaleEndsSoon) ExcelVBACourse-FromBeginnertoExpert 200+VideoLessons 50+HoursofInstruction 200+ExcelGuides BecomeamasterofVBAandMacrosinExcelandlearnhowtoautomateallofyourtasksinExcelwiththisonlinecourse.(NoVBAexperiencerequired.) (40%DiscountEndsSoon!) ViewCourse SimilarTopics HowDoIStopPrintingInDuplex-Excel Index/matchAcrossDifferentSheets-Excel DisplayCellTextInAnotherCellAutomatically-Excel NumbersConvertingToScientificFormatsIn.csvFiles-Excel ChatRoom-Excel HowDoIFreezeTheWidthsOfColumns?-Excel TypeFirstLetterToPopulateDataValidation-Excel MacroToOpenInternetFromExcelAndCopySpecificData-Excel OptimizingACuttingListForLeastWaste-Excel FilterForMultipleTextWords-Excel ConvertFractionsWrittenAsTextIntoActualValues-Excel OptimizeCutLengths-Excel LengthOfACellWithFixedCharactersIncludingSpaces-Excel AddLeadingZeroToACellBasedOnLengthOfCellContents.-Excel DeleteOnlySelectedItemFromTheListboxAndListboxPopulatingSource.-Excel FormulaToIdentifyUpwardOrDownwardTrending....-Excel AutofillWithSelectedCellInVba-Excel AddingABlankInDataValidationList?-Excel CalculateTotalHoursAutomaticallyDeductingLunchBreaks-Excel MacroWorksOnOneComputerButNotAnother-Excel HowDoIStopPrintingInDuplex-Excel IhaveaspreadsheetthatprintsinduplexnomatterwhatIdo.Ihavemadesuretheprinterduplexfunctionisturnedoffbutyetitinsistsinprintingduplex.Itisonlythisoneworkbookotherworkbooksprintfine. Ihopeyouhaveanansewer. Index/matchAcrossDifferentSheets-Excel Thisisprobablyaneasyquestionformostofyou,butit'skillingme.ItriedsearchingbeforeIpostedthis,butthesuggestionsgivendidn'tseemtoworkforme. IneedtolookupdatafromacellononeExcelsheet,compareittoalistona2ndsheetandwhentheyequal,takeavaluefromadifferentcolumnonthe2ndsheetanddropitbackonthe1stsheet.Sincethat'sahorribleexplanation,letmetryexplainingitthisway: Sheet1 ColumnAhasalonglistofcodetype1s ColumnEhasalonglistofcodetype2s Sheet2 CellC2hascode1 CellE2needscode2 Iknowitshouldtakeanindex/matchfunction,butnothingItryisworking.WhatI'mtryingisthefollowingformulainCellE2ofsheet2: =INDEX('Sheet1'!A:A,MATCH(C2,'Sheet1"!E:E,0),5) ButallIgetisnoresult.What'sdrivingmebonkersisthatifIcopyeverythingovertoasinglesheet,thatformulaworksfine. DisplayCellTextInAnotherCellAutomatically-Excel Iwaswonderingifanyonecouldhelpmeoutplease?!?! IneedtohaveacellonSheet2displaytheTEXTfromacellonSheet1,ishispossible?? Example: Sheet1,CellA1containsaclientsnameandIwouldliketohaveSheet2,Sheet3,Sheet4etc...Displaythatclientsnameinacellofmychoosing(couldbeadifferentcelloneachSheet)automaticallyafterenteringitonceonSheet1,cellA1. IthoughtthiswaspossiblebutIcan'tseemtofigureitout.Ihaven'tdoneanyrealExcelworkinquitealongtimebutIthoughtIhaddonethisbeforealongtimeago!!AnyhelpwouldbeGREATLYappreciated!!Thanksinadvance... P.S.IfIuseautosumtodothisitjustdisplaysthenumber0,obviously,sinceitistryingtoaddnumbers... Iuploadedacopyofthespreadsheet,WhatIwouldliketohappenishavethetextfromSheet1,D4automaticallybeplacedinSheet2,A1andSheet3,B2.Hopethishelps -Aric NumbersConvertingToScientificFormatsIn.csvFiles-Excel Iknowthisquestionhasbeenaskedabajilliontimes,soIapologizefortheredundancy. IamworkingwithanExcelspreadsheetandsavingitasa.csvfileinordertouploadtoanapplicationthatparsesoutthe.csvdataastransactions.Thesystemrequires.csvfiles,sothisishowIneedtosavemydoc(withthisextension).IhavebeensuccessfulatpreventingExcelfromcovertingthatlongnumberintoscientificformat.IhavesavedasaTXTfile,pastedthelongernumberanditdisplayscorrectly.Thatisallgood.ButIhavetosaveasa.csv.SoifIdothat,closetheExcelwindow,andthenopenagain(asthe.csvfile),thenumbersarebacktobeingdisplayedinscientificformat.IhavetriedcreatinganExceldocfromscratchandenteringtextinTextformat,toseeifthiscreatedacleanerfile.Butagain,thesecondIsaveas.csv,closethewindowandthenopenthatfileupagain,thatdangscientificformatisback. Doesanyonehaveanyideaofhowtoworkaroundthis?OnceIhavesuccessfullygottenthenumberstodisplayasthelong-chainnumber,howcanIgetthemto"stick"sothattheydon'trevertbacktoscientificformatwhenIreopenthefile? Thankssomuchforyourhelp! ChatRoom-Excel ArethereanychatroomsdedicatedtoMicrosoftapplications?Ihavea problemthat'stoolongwindedtoexplainhere&it'dbeeasiertogo throughitwithsomeoneinachatroom. HowDoIFreezeTheWidthsOfColumns?-Excel I'mtryingtofreezethewidthsofcolumnssothatwhenusersofthe worksheetareusingit,theycan'tchangethewidth.It'sforeditorswho writeheadlinesforspecificareasthatcanonlybeaslongasthecolumnis wideorthetextwon'tfit. TypeFirstLetterToPopulateDataValidation-Excel Hi, Ihavealonglistofdatavalidation.IwaswonderingifthereisawaywhenIclikonthedropdownmenuandtypethefirstletter,automaticallyExcelshowsalllistwiththatletter. Rightnow,IhavetoclickonthedropdownmenuandscrollmanuallyuntilIreachthatdesiredlist. Thanks. MacroToOpenInternetFromExcelAndCopySpecificData-Excel Hello, I'dliketobeabletocopydatafromalistofwebsitesintoExcel.ItwouldtaketoolongtonavigatetodoanExcelwebqueryforeachsite,soisitpossibletowriteamacrothatcoulddothat? Thankyou! ML OptimizingACuttingListForLeastWaste-Excel Imagineawholeboxoflengthsofaluminiumsectionsformakingwindows. TomakethosewindowsIneedtocuttheselengthsintosmallersizes. Ineedtodothiseconomically. HowcanIuseExceltohelpmemakethisareality. Firstlyyouwouldtakeabigsizeoutofitandthenanothersizeoutoftheoffcutpiece. Andthenanothersizeoutoftheoffcutleftover. Ineedtoknowhowmanyfullstocklengths(6500)longitwilltaketocutallthepieceslistedabove. Isitpossible? Youneedtotakeintoaccountthequantityofeachsizeandfititallintogetherforthemostoptimaloutcome. Seeattachedexampleofpossiblelayout. FilterForMultipleTextWords-Excel IhavealonglistofitemdescriptionsthatIneedtofilterdowntodescriptionscontainingwordslike"valve"or"ring"or"root"or"epic"(17keywordsinall).Thebasiccustomfilterlookslikeitonlyletsmefilterfor2words. Ihavesomeexperienceworkingwithadvancedfilterforthingslike>100butthat'saboutit.Anyhelpwiththiswouldbesoappreciated. ConvertFractionsWrittenAsTextIntoActualValues-Excel Higuys, wouldreallyappreciateanyoneshelpwiththis. Ihaveacolumnfulloftext-formattedfractions... 4/5 6/4 3/1 2/5 4/5 etc,etc.....thecolumnisverylong!! Ineedtoconvertthesetoactualfractions...onesIcanaddtoequations,allowingmetomultiplyandadd. IfIhighlightthecolumnandgoto"formatCells"andchangetofraction,thevaluesstillstayintheleftofthecell.....itsonlywhenImanuallyclickoneachindividualcell,thentickthelittlegreentick,doesthecellvalidate,andthevalueinthecellmovestotheright(andisthereforeapropervalue).....problemisIhavetokeepdoingthisforeachindividualcell.....andIhave70000+cellsinthiscolumn! AnysuggestionsonhowIcouldspeedthisup? thanks OptimizeCutLengths-Excel Ihaveagivenlengthofsteelbar...Example(550feet) IhavevariouscutlengthsthatIcanpickfrom... 14'-10".....13'-9"..12'-8"........(upto6differentlengths) Ineedtoknowthebestcombinationoflengthstocutthelongbarintotohaveminimalscrapleftwhenwegettotheendofthe550feet..... Cutasmanyofthelongestcutlengthspossiable.....Cutasfewoftheshortestcutlengthspossiable DuetothefactthatIwillhavetoconvertthistoaPLCapplicationwhencompleted,Iwanttofindamathmaticalwaytodothisinsideexcelandnotusethe"solver"....AssumingthatI/wecancomeupwithanequationtodothis..... Anyandalladvice/helpwouldbeappricated..... LengthOfACellWithFixedCharactersIncludingSpaces-Excel HelloAll,Ihaveacolumnwherecellsneedtobe50characterslong,itcontainsaddresses,however,sincealltheaddressesdonotmeatthecriteria,Ineedtoadd(blankspaces)toreachthe50characters,anyideaonhowtoapproachthis? Example FireStreet#50thiscellcontains17charactersthereforeIneedtoaddtherestbyaddingblankspacestoreach50characters,otherwisethesystemIamexportingthedatawillnotunderstandthiscell AddLeadingZeroToACellBasedOnLengthOfCellContents.-Excel HiAll, Iamtryingtomakeexcelautomaticallyaddaleadingzerotovalueswhichare5digitslong; i.e.numberinputis15185,thenexcelautomaticallychangesitto015185. IfIputaCustomerNumberFormatof0#####itworks,however,ausercouldputanylengthofnumberintothesecells,andifthenumberislessthan5digitsIdon'twantaleadingzero. Isthereanywayofwritingasmallmacrotosortthisout. ThenumberswouldbeinputintorangeB16:223. Manythanks, Andy DeleteOnlySelectedItemFromTheListboxAndListboxPopulatingSource.-Excel HiAll, Ihavethebelowcodewhichdeletesallitemsfromalistboxandmyexcelsheetwhichisthesourceforpopulatingthatlistbox.Iamusingaoptionbuttonstyleformylistboxandtheselectionstyleassingle.i.e.youcanselectonlyoneitematonegointhelisbox.Iwantmymacrotodeletetheselecteditemfrommyworksheet.i.e.it'sentirerowsothatitdoesn'treflectinmylisboxanymore.Belowismycode: Code: PrivateSubCommandButton2_Click() 'REMOVESELECTION DimIAsLong WithListBox1 ForI=.ListCount-1To0Step-1 If.Selected(I)Then .RemoveItemI Sheets("URLList").Rows(I+2).EntireRow.Delete EndIf NextI EndWith EndSub Thanksalotforyourhelpinadvance. FormulaToIdentifyUpwardOrDownwardTrending....-Excel Ok,I'mgoingtotryandexplainthis.Iamgoingtohave5datapointsincellssuchasA2:A6 AllIneedistoknowifthereisanupwardtrendordownwardtrendofthenumbers....Ican'thavesomethingthatsimplytakesthefirstandlastnumberandchecksifit'shigherorlower.Ineedtoactuallyseeiftheyaretrendingupwards.Alsohowwouldigoaboutmakingitsothatiftheyaretrendingupwardsitshowsanuparrow,anddownarrowfordownwards... Andfinally,ifthetrendcontinuesatthesamerate,howlongitwilltakethenumbertoreachagoal.Eachdatapointwillbe1weekapart,withanultimategoalneededtobeachievedattheend. Thiswillbeacompletelyseparateformulaonthesheet.... Anyhelp? AutofillWithSelectedCellInVba-Excel Helloall, UntilnowIhavebeenabletofindallmyanswersthroughsearches.AsaVBAnovice,ithasbeenveryhelpful.Iamstumpedonthisone,however.IamtryingtoautofillfromtheselectedcellinColumnCdown.IwouldlikeittostopatthelastcellwithdatainColumnB.ThisisthecodeIhavesofar: Range("C2").Select Selection.AutoFillDestination:=Range(Selection,Selection.End(xlDown)) Thisdoestheautofill,butdoesn'tstopatthelastcellwithdatainColumnB. InthepastIhaveusethiscodetoacheivesimilarresults: DimendRowAsLong endRow=Cells(Rows.Count,"B").End(xlUp).Row Range("C2").AutoFillDestination:=Range("C2:C"&endRow) TheproblemwiththiscodeisthatIwillnotalwaysbestartingin"C2".Ineedcodethatuseswhatevertheselectedcellis. Allhelpisappreciated.Thanks! AddingABlankInDataValidationList?-Excel Hithere, Ihaveaspreadsheetwithsomecellssetupwithadrop-downlistcontaining Y,NorN/A ThisisbeingusedonaTabletPCbutifImakeamistakeorneedtochange backtoablankfieldIhavetoinvokethesoftkeyboard,activatethecell andhitbackspacethenclosethesoftkeyboard-quitealong-winded procedurejusttochangeanincorrectchoice! WhatIwouldliketodoisaddablanktothelistsoifIhavetorevert backtoablankIcanjustusethestylustochooseablankfromthechooser list. HowdoIaddtheoptionofinputtingablankfromtheDataValidationList bearinginmindIamusingtheDataValidationSourceboxforenteringmy choicesdirectlyandnotspecifyingarangeofcells? Ihavetriedadding""andevenaspacetonoavail. AlthoughnotabettingmanIwouldwagerthereisasimple'fix'forthis butthingsareonlysimpleifyouknowhowinthefirstinstance!;^) -- Thanks&regards, -pp- CalculateTotalHoursAutomaticallyDeductingLunchBreaks-Excel Hiall, Ihaveadillemmahere, Ihavetocreateaschedulewhichincorporateslunchesautomatically(eitherhalfhouror1-hourlunches,dependingonthecircumstances). Thescheduleonlyhastimeinandtimeout,butIneedexceltoautomaticallydeductthelunchbreakdependingonthecircumstance: Ifyouworkedlessthan6hours=nolunch Ifyouworkedmorethan6hours,butlessthanorequalto8hours=0.5hourlunch Ifyouworkedmorethan8hours=1hourlunch Iamassumingtheformulaforthiswillbereallylong,butIhavelookedonlineeverywhereandhavenotfoundONEformulaforit.Ican'tputlunchbreaksseperately,soallIhavetoworkwithisTimein/out. Also,Iwouldn'tbeabletousemilitarytime,soIdon'tknowhowexcelcanassumethattimeinisinthemorning,andtimeoutisinteheveningand/orhalf-day. Ifsomeonecanhelpitwouldbegreatlyyyyappreciated MacroWorksOnOneComputerButNotAnother-Excel Hiall, I'vehadalongsearchthroughyourpagestoseeifthisquestionhasbeenansweredbeforebuthavingbrowsedthroughabout50pagesworthofthreadsIcouldn'tseeanything,butifIamrepeatingpriorinformationIdoapologise. I'vewrittenamacrothatisrelativelysimple.Itjusttakessomeinformationinoneformat,rearrangesit,addssomeformattingandperformssomecalculations.Nothingincrediblyfancybutitworksfineonmycomputer. Now,Ineedtosharethismacrowithsomeotherpeople,sobasicallyI'vejustsentthatexcelfileontothepeoplethatneedtouseit.Shouldbefineandinmostcasesitis,howeverthereisoneuserwhoalthoughtheycanopenthefile,can'tseemtogetthemacrotorunproperly. Itseemstogetasmallwaythroughthemacrobutthenstopwithnoerrormessagesoranysignthatithasn'tcompletedproperly. IhavecheckedMacroSecuritylevelandthatisthesameasmine,Tools-Add-Insisthesame,InVisualBasic,Tools-Referencesisthesameasmine.ItisthesameOperatingsystemandthesameversionofExcel. Ihaveevensignedintothisperson'scomputerasmyself(it'sabigcompanynetworkthing)andtriedtorunthemacroanditworksfine,sothereisnothingwrongwiththehardware. I'vegoogledandsearchedandtriedeverythingIcanthinkofbutI'mnoclosertosolvingthisproblem,soifanyonehasreadthroughthiswalloftextandcancomeupwithapossiblesolution,thatwouldbegreatlyappreciatedtosavemefromtearingALLmyhairout! Thanksverymuchforyourtime. PrivacyPolicy|Disclaimer Copyright©2022ExcelHelp-WearenotaffiliatedwithMicrosoft.