Runtime error: The attempted operation failed.An object could not be found

[Derek_123]

Hi guys,

I have written this outlook macro which works fine on your personal mailbox but it gives an error when I'm trying to run it on the shared mailbox:



On Error Resume Next

Set myOlApp = Outlook.Application
Set mynamespace = myOlApp.GetNamespace("mapi")

Dim strRowData As String
Dim strDelimiter As String
Dim myDestFolder As Outlook.Folder
Dim olRecip As Outlook.Recipient
Dim ShareInbox As Outlook.MAPIFolder
Dim SubFolder As Object
Dim InputFolder As String
Dim OutputFolder As String
Dim ProdMail As String
Dim SavePath As String

Dim oXLApp As Object, oXLwb As Object, oXLws As Object

Dim lRow As Long

On Error Resume Next
Set oXLApp = GetObject(, "Excel.Application")

'~~> If not found then create new instance
If Err.Number <> 0 Then
Set oXLApp = CreateObject("Excel.Application")
End If
Err.Clear
On Error GoTo 0

'~~> Open the relevant file
SavePath = "\\C:\Macro"
Set oXLwb = oXLApp.Workbooks.Open(SavePath & "\Test.xlsx")

'Extract Mailbox and subfolder details from a sheet named as "Folder Details"

Set oXLws = oXLwb.Sheets("Folder Details")

ProdMail = oXLws.Range("B1")
InputFolder = oXLws.Range("B2")
OutputFolder = oXLws.Range("B3")


strRowData = ""

' Code to extract emails from specific subfolder within shared folder and copy the data across excel spreadsheet.

Set olRecip = mynamespace.CreateRecipient(ProdMail)

Set ShareInbox = mynamespace.GetSharedDefaultFolder(olRecip, olFolderInbox)
Set SubFolder = ShareInbox.Folders(InputFolder) 'Change this line to specify folder
Set myDestFolder = ShareInbox.Folders(OutputFolder)


The error is on the below line:


Set SubFolder = ShareInbox.Folders(InputFolder)


Below is the error message :

Run-time error -2147221233 (8004010f):` The attempted operation failed. An object could not be found.

Can anyone please help to troubleshoot this issue? Why the macro is working fine on personal mailbox but not on the shared mailbox.

Many Thanks,
Aman

[Gasman]

Where is ShareInbox set?
Look at the structure in the Locals window.

Edit:Sorry, just noticed right above the error line. :(
However are these objects getting valid values?

[Derek_123]

Thanks @Gasman - Below is the structure where Resolutions is the shared mailbox and the subfolders within it are _03 April and _04 April. The ShareInbox is giving me "Inbox" value
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAK8AAADxCAYAAAC9FufyAAATL0lEQVR4Ae2dva5c txWF9TR6CwMuXKsyAiHu1AWQVcVVikB17BQBrC6dg7hwkTKFbcBNrDJF4t6A7QdIlbi5wXeBNV7 aOjxzZs4v566C4N/mJg/5cZFXOjPz6Of//fcuIXPQIwOPehx0xpzNBgOBNydPtydv4A28gTdHeY7yrRmI8kZ5o7xb77r0F6WP8kZ5H7byfvTR b 8eP378RqBsK3Wkr7n96Rm2GnP6mX9yLKK8Q/AA8x8/ WQTgIf6H4PjL599dvfBB7/eZGxj40jdPIBXgxdwtwIk8M6DoNdN9Aa8P/34w92rTz8dVSRsXr58eUeshx6Ch7IKL0D79eK7f//r5OOrr75s1tV2 FbfxLV/ hjyjS1j8jHIV/WB7bl 33333TtUnFg h/odqvPxJ33d5nsD3tevv7178uTJPZxDEwqwz549uw9j8ApEYvkBDoeZRWdRqWfBSWvhaac07WQnX 8Ai6Cir4Lkv6jUetR 6NlQfU/oVtD5Wyuhn7Jk0jsTXQat5ewNeClsAt8CljRYaaAhaQHVCXIGiDDtAqnDVdr4JqJO9Q8MY1K72J XvVT4EXH f6Zfyos/x6P55WfeJ5sNb5ewteDCrAY Bi76olxQEQdaaFBIgaZAcI1ClPW7WTH48dLu8fG oE9pCfc/BO7VebT PSs6vvoWeSbeL5IA/Cy8Q6wENXBZ/8Cg9wAJBsxmCQDbEWX/CNtesB3qFn8udNeh7ATXiZWAEMvH7HrZNe4aXej1RBCYy17VCeuzHHcatdhbr272Djv26mc8o7t d9zyuvPpmfysqRXhJfJBeAxcLGp8FAmwACBvP7KJ61AO9k62A4FNq7i2PvGIF/7py/5lr37qDAP ZjSr48TH4KemOdpPRO2CfPnYFR5p05whUftgIgF9jwQKQARdQJd5Q4e9fWfrPyPJOpr/4JI/oZgZVzUq6/qY0q/5 BV/94PfhOWmYNF4M1iLLMYmcfL5jHwRgm7PQkCb ANvDnyLjvyMl/z5yvKG WN8kZJ5itJ5vCyOYzyRnmjvFGNy1Qj8zV/vqK8Ud4ob5RkvpJkDi bwyhvlDfKG9W4TDUyX/PnK8ob5Y3yRknmK0nm8LI5XFR5X7z48I5w7SK89957b3x8R354xbFVJ5vEly38LczXYvAC2NOnT 8D6WsmJ4A PACv4URtFoOX73vwoA4uiQNv4L2El8XgRXVR3K / vJefX0QQMkXlRCrHHvyBNpQTvrzz/96KvcvQKFO6o6N/Hh/1Msn/mWT DY3xSLwOkCAAjgCkjxAOYjci4G5QoWd7sy0Jy8b0sAJuLKhDj CWRuIcsqG pC/xP0DvQi8QOJwknZwBB7ASB2H4HE76j3fSkthBTt2Cg75UH8p6xvgReAVLDUWHJQDLfkl4GVzEFB XbZqq/uo7cd Ajq3fbHjrMa7OUD0d5w4v9ailoJM9cbXzvKfZAPjwa4Laq0/3m/RtAjwbXofUIXGoHTzZUKag 3G187yn8UG/fjWhrF4dar36TnwbMM GNyDcBgg9rmPgzbsNp3/R6Q3gwBt4A29vuzbj7f 6E WN8kZ5o2T9K1lvaxjljfJGeXvbtRlv/ydFlDfKG WNkvWvZL2tYZQ3yhvl7W3XZrz9nxRR3ihvlDdK1r S9baGUd4o7 0qr961nbIreTlc7 iSntLmiDb6tIc /bHEGOv7yPKp8jX6VB 3Go8qr17uPvfpBE2821Hm aNPoCBaa5wt/63yoXFcYjvU/tbKRuHlYQGQSRsDsfVpip4ma20wWv5b5UNzd4ntUPtbKzsLLw88BrBUd2xiZMPkE3wjKK86fbaN a4fbcQroKuL VEb/ OCjP8Tk2VTyK19epo8JyUbt5Yt SHt/2MiX7MjLh8ZPnQfq5a9V7jY TvePjcZ9blyai7G59LH0lp4ELw lCfSFo9yhaj28T54mXAvJYrBQ8kVe/amcPAuhvvGn9pRpMWkreLy8NS7s5cfT2Hv mvHXPvHXCnUMrbH7mPB/blw F625rOPsKT8bXiaeSW09tO7NXs9ECsS6IJ73NAuFD/mjTkEL4/YalxZQ/dOv2hHjjzpv63n1p/bEU8fvbap/1Xm50q2xq562l45L80dbT2scPcaT4NWCC7j6oK4Ate7SSfYFAjwC/QpC/LUm39tqHLSjnHaCQnX4oZx8bav8nPGrnyH/qlM/QzY 9lp/6bg0jz6XGkOv8Vl4z4HLg8tGIFBGmnLSLJDSAohYdUrXPOUARqg28kcbBQdBZcQsHIExSaW1 BozbZWmjfu6dvw BvfXKh y0dg1pjpGzQPz4 09TVvqeXaCz6WPpbf0KLxaYE3Q2MNp8pg0giDRxKmcuC6ATyb1nseP7rTqX OST9V7W8asemK1ZSOQx68rLz4oH/JVn 2S8atffPtzDZXLpjX2OsZLxkV/Q3OpcfQYj8LLA/lC9fiAGfMvJxPw3tJ6noU3i//L4vc8F0DLSdPzM9SxB167M9fJuZU8iqsrya08E88ReB8AvLcErD9L4A283V4lAm/gDbwu50nfxh95R1/HKG UN8p79F2a8d3eaRDljfJGeaNst6dsR1/TKG UN8p79F2a8d3eyRDljfJGeaNst6dsR1/TRZSXlz488AL1lAdf82WRlm/Kp4wtNsffjIvB6y9a8 qdXuoeg6AFmLeZYuP2SrfaObwtG/lIfGyAV4FXb/g70EMgTIFnis0lvgPvsYEcWstW2Srw0pl/xEYwA46/EO1gDtlQryAlH7KjPy/n2uK /eEpJy /xOd8Y8PL3GrDx3T8ozp TdK7s9hi430nvezG2QRegAUuFo8FFSwssMqn2NC ZUe5YJkCL768/zHf2AElNoJYz6A8df5s5BPWnYPV4dXiAoCCQBA8U2wcHPkhxhftgddhkW8vI025ytzm3BioH2on n2xCqb8rsdokXh7kVeAVCCzYEFhaSMEzxWbM11B7 VZfisfgrRvA2 iEoKz6rnkpP OSj8QdwCv10RGuxfa8FtIXnXTLxiGYYocf963 NBblsZnq xJ48Q/AUeDlgdXaES mvICg4EDQCXnVEeu SFpQtGyw9TYtOwErW/ftD0y58lN9V1 tvI/B 1F/iZeFeRF4syjLLkrmc9p8Bt78q8DpJOpt0wTewBt4e9u1Ge 0o/nI8xTljfJGeY 8QzO2/lV2aA2jvFHeKO/QzkjZbSreUdY1yhvl7Vd5f/rPz3cJmYMeGXjU46Az5mw2GAi8OXm6PXkDb ANvDnKc5RvzUCUN8r7sJWXd1c9fPKnV1dNyJ8/ /zez6 ePr2q/dY7P/3te9osoryA 49/fncCDvh 9/uXp/zURabd3/7 9ald9TvVT z2hWqr V8FXkC Brzapua3mpT00wf8q8DL4ruKAiFKTEzdb56/OF0zpNDUKcjW87UdV4xA1gdka63TZvC27sEAqiuHp3lgzwOrQF9rMuK3r82wGbwCFED0h5mUVfd ch7XCq6tIaxMEvL7AW2K9VoEXGAFRA3QoBaHq6vXCIfd2sgdeygW8yhMH3hNwl8DgkAlOv5N6Pd Bx58W/IBeIbkd9C1IAjgI/PFgrk4spL6ApCEZ1VqFEbSkD4jHl1R9uxPWqId JHy7Ei8AbgB4uQHuufeDNfw9fdVXcE1r1HXgDb DVbkicK8RWDER5o7xR3q12W/qJsouBKG UN8qr3ZA4yrgVA1HeKG /ynuUbz/JOPLtOpcykG/MyTfm9PuNOZfSHvso5FEYiPJGeaO8R9mNGcfDORmivFHeh628vJs7RfGw0 uTbGPzcNR0WvWehHlDbyB7Br45rYJvLk2TDo154K2Rvu34H39 tv7X1L/6ccfBh/q44//cIeND8aVl7T/jKn//u5YnX6zGBvZ0Qc/Zi0f8ut9J/1wVf8teIH22bNn96ECzG/1Pnny5Cy8L158eA 3fidYgAGl6gSr7sBACpzY1jraUY6N7OUzceB9Q0mHAG6BCzyCS2kHjDrlPY0tIANshdzrSEtxBT dlCZmDt5RXUDjAY BiH3gDkrjZMm7CyyAE8NBVwQd5Cby6v0ptXZWlrJS5Ssu/Yu876Ye7cUbhFcD1D7QKjEPl0GHnedKoODFBsGInYFUH3Gov4Im599b k3 YAJ FN2A8TDB6WPfAmz/ uj3JAm/gDbw9HDMZ421dgaK8Ud4ob1TttlSth/WM8kZ5o7w97NSM8bZOhyhvlDfKG1W7LVXrYT2jvFHeKG8POzVjvK3TIcob5Y3yRtVuS9V6WM8ob 5Q3yjt3p o9XsV6Sb361Xu/rfpq38ov5aflP Xrn0SHUV6gFZC8pL7GS feR BaH6615/iQ8PLQa4C2hs 1Fyj 25usC3iBTh8fqmDr MeG4B8t8naqV1n1wyeZZSMf7nuNkyBgtsGcMjeHhJfPqun7HQSZPsemvK4YQFVhUx0wttq5H9qz OeqE4Vu Wja1TfLzgLxk/g4Fr5SvqhzlgoiHU16fQPYH1ndBuJ3q1a7m8U2dgy7flCv4hpKPxNvBWuf6UPA6oD7QFnQCzG2v gVftgZe 8Euom0h2ifcD1ue a3h5EGAbuzb4hhCYmoC6KSgHYCmw 1abxMcAl3XoHl4d YB2Dk790af7reAFfrUnFqBSdtWpneoT7wvyYeANCPuC0OP8bwKvlMvjHicrYz7WBtsE3iz6sRb9 VtYj8ObFnNMdvzeoA2/gDby97dqMt/ rTJQ3yhvljZL1r2S9rWGUN8rbr/J //33dwmZgx4ZeNTjoDPmbDYYCLw5ebo9eQNv4A28OcpzlG/NQJQ3yhvlvWbXffPNN3ePHz8 hS OI0kV5Oesw/7WTvPsbaDNW9evXq3g/v7Xp6yDZl 580uyrvO 8c/f /fg0nskAIQgAhM2Q1Bg63gff78 SjoQ 1V5sB6WvWJ9wfW12A3eAWlIBWAQOMDJA2YgF7LlafOg8rnxIH3WKAOreVu8FZYW7CovKWounrgT z51ddAGAWwpszaB2nmd sKPp4cmLmX7w31YeAUi0AFSCxbZAapgpQx75QWsAyl48U8ae6/3dKvvlO8L8GHhFRiCTACqXLHuylJWYtkKXqm25 XX79IOrKfVV J9Ya3zvxu8FQ4pKOV1kAJUCqn6IQDd1mGljeeH2vqYPK3 EgfeE5yopJRP0AEI4AAaaUEmNXWABLyuCdR5mWBVW9XhX37Vv/plTNgF3mOB6uuu9G7KywAEl458gHKIVE6sAXsMlNQJdPdJXfWPra4Qgff4cPpaD6V3hXdoQEuWC V4Bu6Tv Nof/k3gdQVVeovFD7z7A7bmOm8C75oPMOY78AbewfvmGDSpu21ojrK N628R5nkjGOdzRx480pktydr4A28gTdH4zpHY a1Pa9R3ihvv8rb27ekZLz5Zh4xkG/MyTfm9PuNOaI4cRStNwaivFHeKG9vuzbj7f kifJGeaO81yiZ//6ZfrjP/VB27idTqT9n4z5rWr/jph8b5BeLlK62yR9LrXdVXgeFND/a54BQNgYmkPETq/4D197 mrSP6Zr2abMd4LvBW39F3X82FQCUH4NXNoqXACfwbgff3PXaDd4KnMOMogItSjwGrxR36EeugbB 1LaGOz6kRM4EOrKfnTm7ar7sRdoMXeIBLC zwOpQteCuwtPFrBxCqLZvBoSTN5lHftS533nWh07zPjXeDt6W8lAvqMeW9/4SvAUg7yjQhDiRlgCy/tc7znpavxMeEeTd4XWmBQ9ACTw2oagWo2igvO/KuoIH3mABqva6Jd4NXR7kGXWGjvKW8gK8rgdoTV0DZEPLj/j1Nvec97b6TPh78u8ELDEAILAQd6Q5JC16H1O0danzqj7Lqn7yrsuc97b6TDrxvHf9rQREIjwfb 0mu9ifICUg1LP0j1F3gD72ZKWeGbmw 8gbdbeOfCn/bHh3 Ta0NAOD4IPa5R4M0rkd2eroE38AbeHo djLnv60yUN8ob5Y2K9a1iPa5flDfKG XtcedmzH2fFlHeKG UNyrWt4r1uH5R3ihvlPeanevv8 rFcfz4e7jnXrDh3d6hF9Onjkcvxev93nP9TfUbu/VPol2V10EhrQ9QAq/SYxAAHB8R0gc2x2yn1vmYpraJ3fqgDs3xbvCiuv6BSZRX6ouSToFXbRQPPeClZYF3HxAvXSfsd4 O3AucwAy8QEQT00MNJcQG9fkiTtq1rCXW6muCXfK4N/UArFnaDF3iASwNxeFWm iQCldggdftAFJ3YflxQH1TBN7 wIWR3eAdU17BS1whVx3lDiBpylTvQFIGyNostc7znpavxMeEezd4q9ICn ByWFrwAtlQUNsKYeA9JoBar2vi3eDVUa5BV9gol42Oe9kCua4EKiOugEqZuU64f0/TzvOedt9JHw/ 3eAFBiAEFoKrrsqI/R4rgBxSlcmfoKYtqi1f1b9vCGyU97T7Tjrwnu6ka8MQCI8H29JrvonySv08XvpBqr/AG3g3U8oK39x84A283cI7F/60Pz78m1wbAsLxQehxjQJvXons9nQNvIG3W3j/D/qASbcXC17KAAAAAElFTkSuQmCC
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAANUAAAErCAYAAABJr8ZeAAAZQ0lEQVR4Ae2dO48k R3aF99fMvyBAg/ZYhNDQeuMJINvSWjIWYy8pQ8CMJ48Cx6CxpgwOATrLMWWQ9AmQ/AGyVuuUcBo4Padi8ll9s/JRH4FEvG9E3jhf3KyazuIf/vF/fz9x4QM0UKeBP DMOmfiS3wpDQAVkZonlWINAFWxQ4lWRCugAioiVbEGgKrYoUQqItViUP3pT/96evbs2dmlumuJTnM9dT7fw7XWzDzHAHJRqFpRC7J///LLq4A1F6r/ uqr0x// M9XWRvwHAOevn28KlQC6lrCBapjC7dP0FuoH4Xq999 Pb1 9WrwBFefly9fnpT6prpErboWKoGWj4k///Tjo423b7/tbWvHybbnVtrOrzm6bKuv1pRrsK3WhvqOzfvxxx fFPWU2mbXvF1tuX7y z0URqF69 6H0/Pnzx g6dpogfTixYuHawgqA6LUdiTahExilNjULiEqb0FqnPMa5362JREbBtW1QKQttXs9Ht/1 NfamDKvYcq1qk7zDN2T10G6X5i8d6NQqWMfWH1AaYwFKDHrsrA8sdJW6KpTPwm8FX07LuFUm/unmLUGj2vncn 3T4FKNsbm1foVzWw358m820n3D1G7h5Og0qAWrCGg1D9PeZ/QEq4XYIFJqO3lfhKo2lzWWI znUxT9Dm/ qjNwHXZGYNq6rw FLwu37vn7ron9yU9BmCTodKGJ1hdj3wpilbUEq2E7T5DInUfpRaloRgatweouu4p75f8/sGaBZU23GAJqvwM1YqhhUrt WhkWARJO7arrM9eeqzqG9fC1s6fwMl C/lYpJo671ikynvzPWUd RuESpsusIaAUp9W1Kqz8CVQlf2tm/K NM59E7gUq/pk1FP/BFbldn7NZdvunzZayLpsTJk31ykbhlGp7qfvntSX6xg mB2ppm58K2qPk7glvCxL3L4kbrUZQNcnEGpvv9rOLwfU3s5vcdteF0Ral9o9V2tjyrxjUHn nEd2uY7jg8WgQiTHEQl7OW8vgYooQZQs1gBQFTuUU33eqX5EfwEVUBGpijUAVMUOPeLJyz3Ni75 ABVREqmINAFWxQznV553qR/QXUAEVkapYA0BV7NAjnrzc07zoC1RARaQq1gBQFTuUU33eqX5EfwEVUBGpijUAVMUOPeLJyz3Ni 75ABVREqmINLA7V/f3nJ12XnnaffPLJ2WvwtqNXOfra3Id03gmLv2r8tShUEv7d3d3DpfwlmwY4NRt9ie8Zc5nvF4VK vxeY1yWbBFSXbewlvmZMja8XhUpRShHqu7ffPkSr3DTBoh/gVOp69VdZl8aoXvk3b75 rM8f9lSbo6H62E7Op3bblH33Ia0REH780I LQZXCluMlaIOisoSegOhzlyBrN0n9/JlM41V2H UFjYByH7XJjiEz2KpXXdcctkf6oUDwyXyfLAaVxJvQKJ CNhDaNEeTrg3MfmrPcl/eEckQqp vhK9rPurmiwifnftsMags4jb1BqheMKlcAZWg1aVoZJjbaOm5Sc9FgD9q/bEIVO3jmDdNUcKPZQmV2hVdDIP7K237ZTnzAlM28nHP4z1n2iVfKyT8 d6fi0CV8KSzE7YEwn1U58ufv9p Wc68bGjefMRUXfsI2LZ7btL3osAXT/PFIlCxKU/bFPy3b/8BVfGfqADEvoGo2D gAqrHf6KoEBQ2/n4CKqACqmINAFWxQzmpefwDKqAiUhVrAKiKHUqkIlIBFVARqYo1AFTFDiVSEamACqiIVMUaAKpi hxKpiFRABVREqmINAFWxQ4lURCqgAioiVbEGgKrYoUQqItVFUPldpykC0kuDfkdK SljttjHbyf7beWKNbbvg9mm65eY03OQLgf/bKj80t/Y27QWRPZTXZa3vrEW91Lr7LPfV9 1jjl9u8ZTVw/XbKi0CQJDmzkESN/bv3vaxKUF22e/r77Ld3P6do2nbiNQaSOGwHKUGtow95EodCWgLrvNv12hx8fsp6jpR8q05zrNLxt6hV6pyoLddm0 r6/y6vft4vG1pHuVzPvWxLfdT2Ta8frXlpXbb66vPPrnOtK8 XvfYuuyLIV/mWsif79kUf1wUqWzYG5uCUluK3X3bNDfVQrDAJBIJyLZUVl7zuF5lCcRzy57Hq84i01iLOuvb9b is/raTebVn ZL1ew6nstd3tWvoW3uuSXbH1pW 6POl10c6Hyj5bBGoJAhtdt m HNZtmuDDUgrlCxnXgKSDdtTmy8LJvt7XRaW59e8HqdU9tSWY7Ps Txe6dT155jWvtuy3vm tbtdY euy/7T2Mx7HaRXhspCNAjtBuSJ2bbN3fwUjoDQpXkNh z1iSLHeh0ap3qNs1jdJjuqV7kd6/JT1u95uuy7zfN09cm1t 1z12U/pi 9BtLLgJLfLopUY0DJsPtYoKpTXvXKSzjOW9hK3eZ8W1a9hK r7WN7GuMrBeo6pRKULq3JUc2i9Jo11nmNSVuXrj/XkPb66rv6eO1eU7tG 0H yfGZ11i16951pS9zLeTfa2mqL2ZDZeF544Ym8qZqM3VZvBrTtrXCyE1uxSA7/szk b0uz X2HKs1u12pxwpQlWU3I5VsqL7L1lPW73llOzq959 tbernHOujRfly 9DtL5QMlns6HSoAQAx1/m K34TVCxn7V7eBFUWxEE63iaGASTIjN fJofW/8BVXz ap1z5LIilB8tj3yfa9wbUN0oVGuI7VbmBCqg4vGvWANAVezQWzmNuc/ z2FABVREqmINAFWxQznB 0/wW/ENUAEVkapYA0BV7NBbOY25z/6IDFRARaQq1gBQFTuUE7z/BL8V3wAVUBGpijUAVMUOvZXTmPvsj8hABVREqmINLAaV/lgzL71YN V0W/KPPPtsq37K2ujTfzrjm/e WRSqfAFPrxj4Zb hDegTfo6Z0if7O983LqHq62MbpO/Fgy 6fXE1qPxGaoLWtSlTRD2lzxzbQNUtji4fUjfuq6tBpc3IV9UNmQSdL8olMF191O7Lka rn bLej1 pu0Uh pVtl2lY7bVJ1/h1 vu cp7Pu763SWNUZ cm/y4SPfmo9WgEkgSvRwmoVnEEp7rp/TR L5 qreIp0AlWzn/kG31EyzqY7h8Dy6rLe9NZa7j 2AVqCw6CdOXBWpRT mTgrYdpbKl8YIqRWzbWae86l2XfcbWoPaucbapw8HRMiOXx5AeE7CrQWWBSkhdgrfALOopfYZsd Y23bc/ldAiqFswc44iqutZ2W3ak1LpsgxSoZokhReXT2o9iFmGWLbAcp3xfnxTnlH6yk7Y9n9fisvpMtT 0HKtkXWESsY4Jk/ShdNFJJoL5SqJpYZbcp9ecR5S3Wvj7qm2P6 hkk903b6QTVuzzVdmurr5xryHk8H nxIFsMKsRyPLGwp9P2FKj4Ru4xSgPNNGjG/ARUQAVUxRoAqmKHjp1itNdEgy37EaiAikhVrAGgKnbolk9Q1nadKAlUQEWkKtYAUBU7lGhwnWiw ZT8DFVARqYo10AnV7//7jxMXPkADl2kAqDhAOECLNQBUxQ7ldL/sdD S34AKqIhUxRoAqmKHHunE5V4ui7pABVREqmINLAaV3h3K68v/eH3R5v3nV28e7PzT3d1F4zltLztt8dvlflsUqr/9z8 PIAiKf/vzy8fy1E3TuL/ 93eP4wRq2p1qh36XiwTfzfPd1aASCJcA0Y5py2z4vA3HX8v762pQaTMz6ggORS6lavuXz 4fHxcd0dTmy32z3I7ToyKiWV40 HjYx6tC1fc5S D4ES/z2swsCyIDyEYPbzT uZ5/VoXK4GjD/YWEI5E/RyVELVR pOyDEyFdT0j4 r2vrwaVIBEgdn7CYjjc1j4mJnw5zv0FleoNoutJ3280vrieL64ClaHJzzwJh2DQZyptvOEzINlP 7X3wCCwi1vWEA6T9vl4UKgHgy5B4M1pYFJ1UJ7iGIpW/sFDaPjLaNmn/huOb5X2zGFRs3vKbh4 36WOgKv4TFYS TaFfc1 ACqgevzy6pvCOPBdQARVQFWsAqIodeuQTmHub9mgLVEBFpCrWAFAVO5TTfNppfmQ/ARVQEamKNQBUxQ498gnMvU2Lwp1QbfnXP1kbvwC7dQ0AVfGvk259w1nf8ocSUAEVP/tcrAGgKnYokWD5SLB1HwMVUBGpijUAVMUO3fopyvqWj6SLQaV3o6ZsoPr9/NOPk/pOsUef5UWDj4d9DFREKg60Yg0AVbFDOcWHT/Fb8M8kqN69F0f//56ffffu081b744i8n9UmH5eOf8m/efP34av3rV68e w616bFQ7b5kQ3Pc3d2dbMN2c27yCHtNDUyCSjC9ePHi4WrBevny5en58 ejUAlK3eh3b799gMQ3LWDcZoj8GUvwGKS2TeNkQ33c3zZJgWpNDUyCSgvsAqsPKPW36J1P4avN5 cyrrwATSC182aa8I5ShUx0XPtiCBiZDpcUmWENAqS9QIfAtCHyNNcyCKsHqeuTLG5gDlT8fOTpl FHMkUl1GNdt3mnOTB g1NTAbKi1WEav9YqK9iRR7wqB WVZeUU pLkOkfgbJbYLO4w2iUn2uauenDFhraeAiqNZaLPMCyh40AFR8wUGUL9YAUBU7dA8nKWtcNuIDFV ARqYo1AFTFDiUKLBsF9uBfoAIqIlWxBoCq2KF7OElZ47LRFKiAikhVrAGgKnYoUWDZKLAH/wIVUBGpijUAVMUO3cNJyhqXjaZABVREqmINAFWxQ4kCy0aBPfgXqICKSFWsAaAqdugeTlLWuGw0 3TRUfo/KqV9ebEXh96762tv feUqO332qV9WzFvx7 ahMih6eXGJlxEFrOfYyqawjn3DtxuoJLQlAFjCJlDsG4qn7t9uoRIMfg2/Bc6PceqjK1/Rz3Fud11rR7/s5D62kbaXiJxP3VDGrw/0bqDSb1H49wEtfv9Ohct jJPYWwjcJkj6xqUdjRe0rUhl27b6 rRjKK8v9GvuweahcqRoo4LqLW45zGX/IlM60b8lmP3c7nFtWbbVlgDatup9Jei2QXpbELX7vXmoEpxcfB8MFn72vQQqjxdUmkt2dbVwux/pbYOU 384qHRzgmDo8S9BNTB2Sgur6gWWI1ba9hhSgEoNHBIqP7oJgDFo/GWHPz8ZKkHp8UrtNEdCt3mc20kBbNNQIVAEukcNrAaVT/pM9 hA1gz4rQZWg6pdCGXEeRQNABV/UPv4efEool77PoAKqICqWANAVezQtU9J5l//MRqogIpIVawBoCp2KJFi/Uix9h4AFVARqYo10AnVL7/8cuLCB2jgMg0AFQcIB2ixBoCq2KGc7ped7kfyG1ABFZGqWANAVezQI5243MtlUReogIpIVayBzU H1/fffn549e/Z4ffPNN4 bnvXKD52kGuf aWNoTFfb69evH zovanMd/Wl7rKT/Wh 2xxUH3300enTTz99AEZpwiNhawMMjPt1bYr6GqrPPvtsEMCu8a5LkDLvdlJAajWwKagMi ExGBJzu3ABIwDbepfVlpfrn5ICFQBN0c moGoh6hOx6/sikB8hZc82/QhocAWcI5nh9Lhs81yyk/kpzqXPbUK4K6gMiGCQwPtE634CyBCpTv1dNkgJiqGSfeXVP9sz3zc39bcJUu77rqDywi1 g F6p/4s5kik1H0NlaNclm03P6slSJn3XKRA1GpgU1C1onXEUX27cIPjiOL2LjCyb0KkMVnuGptryrznI wWqVgObgkqLU1RxpDAMqpegBYDyFr jT96UQfTjntqyzhB5rNtk33Y9v fVmtQPqAAotdaX3xxUFr0f3ST0FLfrlXbdlGBRmwFUH9tUm/Npx4 CQAU0XZqaW7c5qObewNz hsogzR1Pf8Ab08BqUGWkcH5ssRXtQAUUFToasrEaVEOLWrINqIBqSX3J9s1BtbRDsQ 0QFX8F8pABVRABVSd36JyOFx OAAVUAFVsQaAqtihnPCXn/BH8R1QARWRqlgDnVCt/QufzM vvO5ZA0BV/OukexYDa685zIAKqPjZ52INAFWxQznta077PfsRqICKSFWsAaAqduieT1jWXhNlNwfVmzdfn/x/rH/96tUHp6jq7u8//6A BaH2sT7Zv83//NOPD2tQqjatx/m2L UaIR7Jj5uDKgWs/Hdvvz0DSHVDwEj8d3d3D1cVCLmmI20 97LMgbApqBSl9Nq6N1tRKaOVy0NQuY9T23pKClTLiO8pe7LlsZuCqgUhIVPUEUyKXENQKUqpr/opn84XHH2Pl2oT0Eo1JkHKfNojD2xdGtgUVBK1RO FJlQJSx9ULUgak4 PgsNjBV7Coryg9txtW9WjpO2THhfITUHVF6lUb9iGItXDLx4FGBqXj5MJikQtwGy3bcty5oHhuD BU7e2moMrIpBs0TBJ1e7WPdurf9nHZzlI5Iw5QAYi1UZluCio/kvkGWwhU3xepBKQf7TxeaQuOQLWdtJ95tWc582mbPFB2aWBTUGmBgkMi1uVHs1x4H1QJT/ZP2GTTX0a09lXOKJblzKdt8kDVpYHNQdW1yKo64ACCKi0N2VkNKgm8vYYWWtEGVEBVoaMxG6tBN bawJdqBCqiW0FVr86agam eMpAtoQGg4q/UH//BewmB3aJNoAIqoCrWAFAVO/QWT2bu fwxGqiAikhVrAGgKnYop/b5qX2L/gAqoCJSFWsAqIodeosnM/d8Hp2BCqiIVMUaAKpih3Jqn5/at gPoAIqIlWxBoCq2KG3eDJzz fReXNQ5ftUfqFQm5bvQY39Yazerep6YXHq5vtlSb9fNTbfVLv0OxffUf2xOahSwMr7h1sElfNDm yEQ9Kq9fyhmqO/UtlzT1DH0uw2AuvZ5U1ApSuUPtShSOVop8kyBymOcdt303Dqgul1A5mpF/TcFVQtCQiaoJG5dBq3rhh2hBGD74zAa2/d4qTY/Ysquyjz AVOXxsbqNgWVRC3Re9EJlev8eacrarUgCarsJ1D8Wct2EpyEFagAypqbm24KqqFIlTfWwuc21Sc YyqvO7QmK6gSYIW7bspx52yIFuj4NbAqqNjIJCos b6APKom/6/LYFg6gAgxrozLdFFR JPMNthCo3n382Oa gs Pdq5T2oLjSKbHwrSfeY3LcubTNnmg7NLApqDSAgWHRKwro5TrlObnJN9UwuM62zNsGqsoZ1ut/QRVfVzOfNomD1RdGtgcVF2LrKoDDiCo0tKQndWgcrTIdGihFW1ABVQVOhqzsRpUYwtboh2ogGoJ XbU2bwqq9uYpA9kSGgAq/kr98d/xlhDYLdoEKqACqmINAFWxQ2/xZOaezx jgQqoiFTFGgCqYodyap f2rfoD6ACKiJVsQaAqtiht3gyc8/n0RmogIpIVawBoCp2KKf2 al9i/4AKqAiUhVrAKiKHXqLJzP3fB6dNwuVfl/Cf8GeP CiunxFPjdULyD2/dHsnHF9NnIu9ckr383KfnPz7UuYU9Yydw76n0NQ7Y/NQWVRSaT8N80D1aLA3tOg2xxU QbvNEnRCwieBkG1/8qgevfuh4ffg/j9t187P/h 8cVfTuozdAOOUu4DLtM8YH RbgOuMqgE04sXLx6uFix9Bnr /PkoVO3v9k2TFL2AaRsweR/KoJLBLrCmAqXxRKrLDghvJuk24CqFqgVrDlAWhL7p8zdpl0ns9kbZd6QHhSrBmvLI1wpBQOlrZD 0K8t80D7Q pLwuXOWRyhuqR8GxLybct039GDhNUvRq/Uf5oFCxsetuLP5fz/ LRaqxTc2/RnB bAzt6wkF30/3/WpQsUnTNwlf7ctXQMUf1A7 gzxAzwcaqIAKqIo1AFTFDuVkn3 yH81nQAVURKpiDQBVsUOPdupyP/MjL1ABFZGqWANAVexQTvb5J/vRfAZUQEWkKtYAUBU79GinLvczP/ICFVARqYo1AFTFDuVkn3 yH81nQAVURKpiDawKlV5EHDul9Bfsl/zO35hdt/vdLaWum5JqXXPHDNm9dB1DNmlbJ2quBpWAkjD96nyfAPxaSJeA/YObXW199lRfAcQlNqpepxy6N9rWASn9vhpUWoRfnR8CS Llv3MP5AaSXx idg9WhWoKWEB1DpRK7SZS3hZYq0M1BhZQAdXeDg2g lCzm6/Zm8hubb2rQzX2uYpI9SHjtybSvd3vqlCNASVnAhVQAdXEf0ib85X6h7K67Zq9iezW1rtqpJryj7/akFv579bEd9T7XRWqozqV 9rWV9zX3g gmvi4eu2NYb79gglUQMU/JhdrAKiKHUqE2W Eqdo7oAIqIlWxBoCq2KFVpx129hvxgAqoiFTFGgCqYocSYfYbYar2DqiAikhVrAGgKnZo1WmHnf 1GPKACKiJVsQaAqtihRJj9RpiqvQMqoCJSFWsAqIodWnXaYWe/EW9TUN3ff/7BT5bpJcV8RUR59Xuq6GTXP22mfF6uf ocjN8vGE/Zu01BpTeB84cz/SLj61evHiFSPsuX3nwLlUHSGvR7gpfaZdxtgpT7vimoJOwUtOARZBmZlM/IlTczJ98HlWxk2xyb9AUoaWBTUGlBgspRQwApL5FbsJl3m p0KcpkPwHp/tlXsKre82Re47OsfJ dPAC0VvXV5XV01Xl9pMcF8P8ByZE HHUKzvQAAAAASUVORK5CYII=

[Derek_123]

Somehow it's not letting me send the screenshothttp://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAK8AAADxCAYAAAC9FufyAAATL0lEQVR4Ae2dva5c txWF9TR6CwMuXKsyAiHu1AWQVcVVikB17BQBrC6dg7hwkTKFbcBNrDJF4t6A7QdIlbi5wXeBNV7 aOjxzZs4v566C4N/mJg/5cZFXOjPz6Of//fcuIXPQIwOPehx0xpzNBgOBNydPtydv4A28gTdHeY7yrRmI8kZ5o7xb77r0F6WP8kZ5H7byfvTR b 8eP378RqBsK3Wkr7n96Rm2GnP6mX9yLKK8Q/AA8x8/ WQTgIf6H4PjL599dvfBB7/eZGxj40jdPIBXgxdwtwIk8M6DoNdN9Aa8P/34w92rTz8dVSRsXr58eUeshx6Ch7IKL0D79eK7f//r5OOrr75s1tV2 FbfxLV/ hjyjS1j8jHIV/WB7bl 33333TtUnFg h/odqvPxJ33d5nsD3tevv7178uTJPZxDEwqwz549uw9j8ApEYvkBDoeZRWdRqWfBSWvhaac07WQnX 8Ai6Cir4Lkv6jUetR 6NlQfU/oVtD5Wyuhn7Jk0jsTXQat5ewNeClsAt8CljRYaaAhaQHVCXIGiDDtAqnDVdr4JqJO9Q8MY1K72J XvVT4EXH f6Zfyos/x6P55WfeJ5sNb5ewteDCrAY Bi76olxQEQdaaFBIgaZAcI1ClPW7WTH48dLu8fG oE9pCfc/BO7VebT PSs6vvoWeSbeL5IA/Cy8Q6wENXBZ/8Cg9wAJBsxmCQDbEWX/CNtesB3qFn8udNeh7ATXiZWAEMvH7HrZNe4aXej1RBCYy17VCeuzHHcatdhbr272Djv26mc8o7t d9zyuvPpmfysqRXhJfJBeAxcLGp8FAmwACBvP7KJ61AO9k62A4FNq7i2PvGIF/7py/5lr37qDAP ZjSr48TH4KemOdpPRO2CfPnYFR5p05whUftgIgF9jwQKQARdQJd5Q4e9fWfrPyPJOpr/4JI/oZgZVzUq6/qY0q/5 BV/94PfhOWmYNF4M1iLLMYmcfL5jHwRgm7PQkCb ANvDnyLjvyMl/z5yvKG WN8kZJ5itJ5vCyOYzyRnmjvFGNy1Qj8zV/vqK8Ud4ob5RkvpJkDi bwyhvlDfKG9W4TDUyX/PnK8ob5Y3yRknmK0nm8LI5XFR5X7z48I5w7SK89957b3x8R354xbFVJ5vEly38LczXYvAC2NOnT 8D6WsmJ4A PACv4URtFoOX73vwoA4uiQNv4L2El8XgRXVR3K / vJefX0QQMkXlRCrHHvyBNpQTvrzz/96KvcvQKFO6o6N/Hh/1Msn/mWT DY3xSLwOkCAAjgCkjxAOYjci4G5QoWd7sy0Jy8b0sAJuLKhDj CWRuIcsqG pC/xP0DvQi8QOJwknZwBB7ASB2H4HE76j3fSkthBTt2Cg75UH8p6xvgReAVLDUWHJQDLfkl4GVzEFB XbZqq/uo7cd Ajq3fbHjrMa7OUD0d5w4v9ailoJM9cbXzvKfZAPjwa4Laq0/3m/RtAjwbXofUIXGoHTzZUKag 3G187yn8UG/fjWhrF4dar36TnwbMM GNyDcBgg9rmPgzbsNp3/R6Q3gwBt4A29vuzbj7f 6E WN8kZ5o2T9K1lvaxjljfJGeXvbtRlv/ydFlDfKG WNkvWvZL2tYZQ3yhvl7W3XZrz9nxRR3ihvlDdK1r S9baGUd4o7 0qr961nbIreTlc7 iSntLmiDb6tIc /bHEGOv7yPKp8jX6VB 3Go8qr17uPvfpBE2821Hm aNPoCBaa5wt/63yoXFcYjvU/tbKRuHlYQGQSRsDsfVpip4ma20wWv5b5UNzd4ntUPtbKzsLLw88BrBUd2xiZMPkE3wjKK86fbaN a4fbcQroKuL VEb/ OCjP8Tk2VTyK19epo8JyUbt5Yt SHt/2MiX7MjLh8ZPnQfq5a9V7jY TvePjcZ9blyai7G59LH0lp4ELw lCfSFo9yhaj28T54mXAvJYrBQ8kVe/amcPAuhvvGn9pRpMWkreLy8NS7s5cfT2Hv mvHXPvHXCnUMrbH7mPB/blw F625rOPsKT8bXiaeSW09tO7NXs9ECsS6IJ73NAuFD/mjTkEL4/YalxZQ/dOv2hHjjzpv63n1p/bEU8fvbap/1Xm50q2xq562l45L80dbT2scPcaT4NWCC7j6oK4Ate7SSfYFAjwC/QpC/LUm39tqHLSjnHaCQnX4oZx8bav8nPGrnyH/qlM/QzY 9lp/6bg0jz6XGkOv8Vl4z4HLg8tGIFBGmnLSLJDSAohYdUrXPOUARqg28kcbBQdBZcQsHIExSaW1 BozbZWmjfu6dvw BvfXKh y0dg1pjpGzQPz4 09TVvqeXaCz6WPpbf0KLxaYE3Q2MNp8pg0giDRxKmcuC6ATyb1nseP7rTqX OST9V7W8asemK1ZSOQx68rLz4oH/JVn 2S8atffPtzDZXLpjX2OsZLxkV/Q3OpcfQYj8LLA/lC9fiAGfMvJxPw3tJ6noU3i//L4vc8F0DLSdPzM9SxB167M9fJuZU8iqsrya08E88ReB8AvLcErD9L4A283V4lAm/gDbwu50nfxh95R1/HKG UN8p79F2a8d3eaRDljfJGeaNst6dsR1/TKG UN8p79F2a8d3eyRDljfJGeaNst6dsR1/TRZSXlz488AL1lAdf82WRlm/Kp4wtNsffjIvB6y9a8 qdXuoeg6AFmLeZYuP2SrfaObwtG/lIfGyAV4FXb/g70EMgTIFnis0lvgPvsYEcWstW2Srw0pl/xEYwA46/EO1gDtlQryAlH7KjPy/n2uK /eEpJy /xOd8Y8PL3GrDx3T8ozp TdK7s9hi430nvezG2QRegAUuFo8FFSwssMqn2NC ZUe5YJkCL768/zHf2AElNoJYz6A8df5s5BPWnYPV4dXiAoCCQBA8U2wcHPkhxhftgddhkW8vI025ytzm3BioH2on n2xCqb8rsdokXh7kVeAVCCzYEFhaSMEzxWbM11B7 VZfisfgrRvA2 iEoKz6rnkpP OSj8QdwCv10RGuxfa8FtIXnXTLxiGYYocf963 NBblsZnq xJ48Q/AUeDlgdXaES mvICg4EDQCXnVEeu SFpQtGyw9TYtOwErW/ftD0y58lN9V1 tvI/B 1F/iZeFeRF4syjLLkrmc9p8Bt78q8DpJOpt0wTewBt4e9u1Ge 0o/nI8xTljfJGeY 8QzO2/lV2aA2jvFHeKO/QzkjZbSreUdY1yhvl7Vd5f/rPz3cJmYMeGXjU46Az5mw2GAi8OXm6PXkDb ANvDnKc5RvzUCUN8r7sJWXd1c9fPKnV1dNyJ8/ /zez6 ePr2q/dY7P/3te9osoryA 49/fncCDvh 9/uXp/zURabd3/7 9ald9TvVT z2hWqr V8FXkC Brzapua3mpT00wf8q8DL4ruKAiFKTEzdb56/OF0zpNDUKcjW87UdV4xA1gdka63TZvC27sEAqiuHp3lgzwOrQF9rMuK3r82wGbwCFED0h5mUVfd ch7XCq6tIaxMEvL7AW2K9VoEXGAFRA3QoBaHq6vXCIfd2sgdeygW8yhMH3hNwl8DgkAlOv5N6Pd Bx58W/IBeIbkd9C1IAjgI/PFgrk4spL6ApCEZ1VqFEbSkD4jHl1R9uxPWqId JHy7Ei8AbgB4uQHuufeDNfw9fdVXcE1r1HXgDb DVbkicK8RWDER5o7xR3q12W/qJsouBKG UN8qr3ZA4yrgVA1HeKG /ynuUbz/JOPLtOpcykG/MyTfm9PuNOZfSHvso5FEYiPJGeaO8R9mNGcfDORmivFHeh628vJs7RfGw0uTbGPzcNR0WvWehHl DbyB7Br45rYJvLk2TDo154K2Rvu34H39 tv7X1L/6ccfBh/q44//cIeND8aVl7T/jKn//u5YnX6zGBvZ0Qc/Zi0f8ut9J/1wVf8teIH22bNn96ECzG/1Pnny5Cy8L158eA 3fidYgAGl6gSr7sBACpzY1jraUY6N7OUzceB9Q0mHAG6BCzyCS2kHjDrlPY0tIANshdzrSEtxBT dlCZmDt5RXUDjAY BiH3gDkrjZMm7CyyAE8NBVwQd5Cby6v0ptXZWlrJS5Ssu/Yu876Ye7cUbhFcD1D7QKjEPl0GHnedKoODFBsGInYFUH3Gov4Im599b k3 YAJ FN2A8TDB6WPfAmz/ uj3JAm/gDbw9HDMZ421dgaK8Ud4ob1TttlSth/WM8kZ5o7w97NSM8bZOhyhvlDfKG1W7LVXrYT2jvFHeKG8POzVjvK3TIcob5Y3yRtVuS9V6WM8ob 5Q3yjt3p o9XsV6Sb361Xu/rfpq38ov5aflP Xrn0SHUV6gFZC8pL7GS feR BaH6615/iQ8PLQa4C2hs 1Fyj 25usC3iBTh8fqmDr MeG4B8t8naqV1n1wyeZZSMf7nuNkyBgtsGcMjeHhJfPqun7HQSZPsemvK4YQFVhUx0wttq5H9qz OeqE4Vu Wja1TfLzgLxk/g4Fr5SvqhzlgoiHU16fQPYH1ndBuJ3q1a7m8U2dgy7flCv4hpKPxNvBWuf6UPA6oD7QFnQCzG2v gVftgZe 8Euom0h2ifcD1ue a3h5EGAbuzb4hhCYmoC6KSgHYCmw 1abxMcAl3XoHl4d YB2Dk790af7reAFfrUnFqBSdtWpneoT7wvyYeANCPuC0OP8bwKvlMvjHicrYz7WBtsE3iz6sRb9 VtYj8ObFnNMdvzeoA2/gDby97dqMt/ rTJQ3yhvljZL1r2S9rWGUN8rbr/J //33dwmZgx4ZeNTjoDPmbDYYCLw5ebo9eQNv4A28OcpzlG/NQJQ3yhvlvWbXffPNN3ePHz8 hS OI0kV5Oesw/7WTvPsbaDNW9evXq3g/v7Xp6yDZl 580uyrvO8c/f /fg0nskAIQgAhM2Q1Bg63gff78 SjoQ 1V5sB6WvWJ9wfW12A3eAWlIBWAQOMDJA2YgF7LlafOg8rnxIH3WKAOreVu8FZYW7CovKWounrgT z51ddAGAWwpszaB2nmd sKPp4cmLmX7w31YeAUi0AFSCxbZAapgpQx75QWsAyl48U8ae6/3dKvvlO8L8GHhFRiCTACqXLHuylJWYtkKXqm25 XX79IOrKfVV J9Ya3zvxu8FQ4pKOV1kAJUCqn6IQDd1mGljeeH2vqYPK3 EgfeE5yopJRP0AEI4AAaaUEmNXWABLyuCdR5mWBVW9XhX37Vv/plTNgF3mOB6uuu9G7KywAEl458gHKIVE6sAXsMlNQJdPdJXfWPra4Qgff4cPpaD6V3hXdoQEuWC V4Bu6Tv Nof/k3gdQVVeovFD7z7A7bmOm8C75oPMOY78AbewfvmGDSpu21ojrK N628R5nkjGOdzRx480pktydr4A28gTdH4zpHY a1Pa9R3ihvv8rb27ekZLz5Zh4xkG/MyTfm9PuNOaI4cRStNwaivFHeKG9vuzbj7f kifJGeaO81yiZ//6ZfrjP/VB27idTqT9n4z5rWr/jph8b5BeLlK62yR9LrXdVXgeFND/a54BQNgYmkPETq/4D197 mrSP6Zr2abMd4LvBW39F3X82FQCUH4NXNoqXACfwbgff3PXaDd4KnMOMogItSjwGrxR36EeugbB 1LaGOz6kRM4EOrKfnTm7ar7sRdoMXeIBLC zwOpQteCuwtPFrBxCqLZvBoSTN5lHftS533nWh07zPjXeDt6W8lAvqMeW9/4SvAUg7yjQhDiRlgCy/tc7znpavxMeEeTd4XWmBQ9ACTw2oagWo2igvO/KuoIH3mABqva6Jd4NXR7kGXWGjvKW8gK8rgdoTV0DZEPLj/j1Nvec97b6TPh78u8ELDEAILAQd6Q5JC16H1O0danzqj7Lqn7yrsuc97b6TDrxvHf9rQREIjwfb 0mu9ifICUg1LP0j1F3gD72ZKWeGbmw 8gbdbeOfCn/bHh3 Ta0NAOD4IPa5R4M0rkd2eroE38AbeHo djLnv60yUN8ob5Y2K9a1iPa5flDfKG XtcedmzH2fFlHeKG UNyrWt4r1uH5R3ihvlPeanevv8 rFcfz4e7jnXrDh3d6hF9Onjkcvxev93nP9TfUbu/VPol2V10EhrQ9QAq/SYxAAHB8R0gc2x2yn1vmYpraJ3fqgDs3xbvCiuv6BSZRX6ouSToFXbRQPPeClZYF3HxAvXSfsd4 O3AucwAy8QEQT00MNJcQG9fkiTtq1rCXW6muCXfK4N/UArFnaDF3iASwNxeFWmiQCldggdftAFJ3YflxQH1TBN7 wIWR3eAdU17BS1whVx3lDiBpylTvQFIGyNostc7znpavxMeEezd4q9ICn ByWFrwAtlQUNsKYeA9JoBar2vi3eDVUa5BV9gol42Oe9kCua4EKiOugEqZuU64f0/TzvOedt9JHw/ 3eAFBiAEFoKrrsqI/R4rgBxSlcmfoKYtqi1f1b9vCGyU97T7Tjrwnu6ka8MQCI8H29JrvonySv08XvpBqr/AG3g3U8oK39x84A283cI7F/60Pz78m1wbAsLxQehxjQJvXons9nQNvIG3W3j/D/qASbcXC17KAAAAAElFTkSuQmCC

[Gasman]

Somehow it's not letting me send the screenshothttp://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAK8AAADxCAYAAAC9FufyAAATL0lEQVR4Ae2dva5c txWF9TR6CwMuXKsyAiHu1AWQVcVVikB17BQBrC6dg7hwkTKFbcBNrDJF4t6A7QdIlbi5wXeBNV7 aOjxzZs4v566C4N/mJg/5cZFXOjPz6Of//fcuIXPQIwOPehx0xpzNBgOBNydPtydv4A28gTdHeY7yrRmI8kZ5o7xb77r0F6WP8kZ5H7byfvTR b 8eP378RqBsK3Wkr7n96Rm2GnP6mX9yLKK8Q/AA8x8/ WQTgIf6H4PjL599dvfBB7/eZGxj40jdPIBXgxdwtwIk8M6DoNdN9Aa8P/34w92rTz8dVSRsXr58eUeshx6Ch7IKL0D79eK7f//r5OOrr75s1tV2 FbfxLV/ hjyjS1j8jHIV/WB7bl 33333TtUnFg h/odqvPxJ33d5nsD3tevv7178uTJPZxDEwqwz549uw9j8ApEYvkBDoeZRWdRqWfBSWvhaac07WQnX 8Ai6Cir4Lkv6jUetR 6NlQfU/oVtD5Wyuhn7Jk0jsTXQat5ewNeClsAt8CljRYaaAhaQHVCXIGiDDtAqnDVdr4JqJO9Q8MY1K72J XvVT4EXH f6Zfyos/x6P55WfeJ5sNb5ewteDCrAY Bi76olxQEQdaaFBIgaZAcI1ClPW7WTH48dLu8fG oE9pCfc/BO7VebT PSs6vvoWeSbeL5IA/Cy8Q6wENXBZ/8Cg9wAJBsxmCQDbEWX/CNtesB3qFn8udNeh7ATXiZWAEMvH7HrZNe4aXej1RBCYy17VCeuzHHcatdhbr272Djv26mc8o7t d9zyuvPpmfysqRXhJfJBeAxcLGp8FAmwACBvP7KJ61AO9k62A4FNq7i2PvGIF/7py/5lr37qDAP ZjSr48TH4KemOdpPRO2CfPnYFR5p05whUftgIgF9jwQKQARdQJd5Q4e9fWfrPyPJOpr/4JI/oZgZVzUq6/qY0q/5 BV/94PfhOWmYNF4M1iLLMYmcfL5jHwRgm7PQkCb ANvDnyLjvyMl/z5yvKG WN8kZJ5itJ5vCyOYzyRnmjvFGNy1Qj8zV/vqK8Ud4ob5RkvpJkDi bwyhvlDfKG9W4TDUyX/PnK8ob5Y3yRknmK0nm8LI5XFR5X7z48I5w7SK89957b3x8R354xbFVJ5vEly38LczXYvAC2NOnT 8D6WsmJ4A PACv4URtFoOX73vwoA4uiQNv4L2El8XgRXVR3K / vJefX0QQMkXlRCrHHvyBNpQTvrzz/96KvcvQKFO6o6N/Hh/1Msn/mWT DY3xSLwOkCAAjgCkjxAOYjci4G5QoWd7sy0Jy8b0sAJuLKhDj CWRuIcsqG pC/xP0DvQi8QOJwknZwBB7ASB2H4HE76j3fSkthBTt2Cg75UH8p6xvgReAVLDUWHJQDLfkl4GVzEFB XbZqq/uo7cd Ajq3fbHjrMa7OUD0d5w4v9ailoJM9cbXzvKfZAPjwa4Laq0/3m/RtAjwbXofUIXGoHTzZUKag 3G187yn8UG/fjWhrF4dar36TnwbMM GNyDcBgg9rmPgzbsNp3/R6Q3gwBt4A29vuzbj7f 6E WN8kZ5o2T9K1lvaxjljfJGeXvbtRlv/ydFlDfKG WNkvWvZL2tYZQ3yhvl7W3XZrz9nxRR3ihvlDdK1r S9baGUd4o7 0qr961nbIreTlc7 iSntLmiDb6tIc /bHEGOv7yPKp8jX6VB 3Go8qr17uPvfpBE2821Hm aNPoCBaa5wt/63yoXFcYjvU/tbKRuHlYQGQSRsDsfVpip4ma20wWv5b5UNzd4ntUPtbKzsLLw88BrBUd2xiZMPkE3wjKK86fbaN a4fbcQroKuL VEb/ OCjP8Tk2VTyK19epo8JyUbt5Yt SHt/2MiX7MjLh8ZPnQfq5a9V7jY TvePjcZ9blyai7G59LH0lp4ELw lCfSFo9yhaj28T54mXAvJYrBQ8kVe/amcPAuhvvGn9pRpMWkreLy8NS7s5cfT2Hv mvHXPvHXCnUMrbH7mPB/blw F625rOPsKT8bXiaeSW09tO7NXs9ECsS6IJ73NAuFD/mjTkEL4/YalxZQ/dOv2hHjjzpv63n1p/bEU8fvbap/1Xm50q2xq562l45L80dbT2scPcaT4NWCC7j6oK4Ate7SSfYFAjwC/QpC/LUm39tqHLSjnHaCQnX4oZx8bav8nPGrnyH/qlM/QzY 9lp/6bg0jz6XGkOv8Vl4z4HLg8tGIFBGmnLSLJDSAohYdUrXPOUARqg28kcbBQdBZcQsHIExSaW1 BozbZWmjfu6dvw BvfXKh y0dg1pjpGzQPz4 09TVvqeXaCz6WPpbf0KLxaYE3Q2MNp8pg0giDRxKmcuC6ATyb1nseP7rTqX OST9V7W8asemK1ZSOQx68rLz4oH/JVn 2S8atffPtzDZXLpjX2OsZLxkV/Q3OpcfQYj8LLA/lC9fiAGfMvJxPw3tJ6noU3i//L4vc8F0DLSdPzM9SxB167M9fJuZU8iqsrya08E88ReB8AvLcErD9L4A283V4lAm/gDbwu50nfxh95R1/HKG UN8p79F2a8d3eaRDljfJGeaNst6dsR1/TKG UN8p79F2a8d3eyRDljfJGeaNst6dsR1/TRZSXlz488AL1lAdf82WRlm/Kp4wtNsffjIvB6y9a8 qdXuoeg6AFmLeZYuP2SrfaObwtG/lIfGyAV4FXb/g70EMgTIFnis0lvgPvsYEcWstW2Srw0pl/xEYwA46/EO1gDtlQryAlH7KjPy/n2uK /eEpJy /xOd8Y8PL3GrDx3T8ozp TdK7s9hi430nvezG2QRegAUuFo8FFSwssMqn2NC ZUe5YJkCL768/zHf2AElNoJYz6A8df5s5BPWnYPV4dXiAoCCQBA8U2wcHPkhxhftgddhkW8vI025ytzm3BioH2on n2xCqb8rsdokXh7kVeAVCCzYEFhaSMEzxWbM11B7 VZfisfgrRvA2 iEoKz6rnkpP OSj8QdwCv10RGuxfa8FtIXnXTLxiGYYocf963 NBblsZnq xJ48Q/AUeDlgdXaES mvICg4EDQCXnVEeu SFpQtGyw9TYtOwErW/ftD0y58lN9V1 tvI/B 1F/iZeFeRF4syjLLkrmc9p8Bt78q8DpJOpt0wTewBt4e9u1Ge 0o/nI8xTljfJGeY 8QzO2/lV2aA2jvFHeKO/QzkjZbSreUdY1yhvl7Vd5f/rPz3cJmYMeGXjU46Az5mw2GAi8OXm6PXkDb ANvDnKc5RvzUCUN8r7sJWXd1c9fPKnV1dNyJ8/ /zez6 ePr2q/dY7P/3te9osoryA 49/fncCDvh 9/uXp/zURabd3/7 9ald9TvVT z2hWqr V8FXkC Brzapua3mpT00wf8q8DL4ruKAiFKTEzdb56/OF0zpNDUKcjW87UdV4xA1gdka63TZvC27sEAqiuHp3lgzwOrQF9rMuK3r82wGbwCFED0h5mUVfd ch7XCq6tIaxMEvL7AW2K9VoEXGAFRA3QoBaHq6vXCIfd2sgdeygW8yhMH3hNwl8DgkAlOv5N6Pd Bx58W/IBeIbkd9C1IAjgI/PFgrk4spL6ApCEZ1VqFEbSkD4jHl1R9uxPWqId JHy7Ei8AbgB4uQHuufeDNfw9fdVXcE1r1HXgDb DVbkicK8RWDER5o7xR3q12W/qJsouBKG UN8qr3ZA4yrgVA1HeKG /ynuUbz/JOPLtOpcykG/MyTfm9PuNOZfSHvso5FEYiPJGeaO8R9mNGcfDORmivFHeh628vJs7RfGw0uTbGPzcNR0WvWehHl DbyB7Br45rYJvLk2TDo154K2Rvu34H39 tv7X1L/6ccfBh/q44//cIeND8aVl7T/jKn//u5YnX6zGBvZ0Qc/Zi0f8ut9J/1wVf8teIH22bNn96ECzG/1Pnny5Cy8L158eA 3fidYgAGl6gSr7sBACpzY1jraUY6N7OUzceB9Q0mHAG6BCzyCS2kHjDrlPY0tIANshdzrSEtxBT dlCZmDt5RXUDjAY BiH3gDkrjZMm7CyyAE8NBVwQd5Cby6v0ptXZWlrJS5Ssu/Yu876Ye7cUbhFcD1D7QKjEPl0GHnedKoODFBsGInYFUH3Gov4Im599b k3 YAJ FN2A8TDB6WPfAmz/ uj3JAm/gDbw9HDMZ421dgaK8Ud4ob1TttlSth/WM8kZ5o7w97NSM8bZOhyhvlDfKG1W7LVXrYT2jvFHeKG8POzVjvK3TIcob5Y3yRtVuS9V6WM8ob 5Q3yjt3p o9XsV6Sb361Xu/rfpq38ov5aflP Xrn0SHUV6gFZC8pL7GS feR BaH6615/iQ8PLQa4C2hs 1Fyj 25usC3iBTh8fqmDr MeG4B8t8naqV1n1wyeZZSMf7nuNkyBgtsGcMjeHhJfPqun7HQSZPsemvK4YQFVhUx0wttq5H9qz OeqE4Vu Wja1TfLzgLxk/g4Fr5SvqhzlgoiHU16fQPYH1ndBuJ3q1a7m8U2dgy7flCv4hpKPxNvBWuf6UPA6oD7QFnQCzG2v gVftgZe 8Euom0h2ifcD1ue a3h5EGAbuzb4hhCYmoC6KSgHYCmw 1abxMcAl3XoHl4d YB2Dk790af7reAFfrUnFqBSdtWpneoT7wvyYeANCPuC0OP8bwKvlMvjHicrYz7WBtsE3iz6sRb9 VtYj8ObFnNMdvzeoA2/gDby97dqMt/ rTJQ3yhvljZL1r2S9rWGUN8rbr/J //33dwmZgx4ZeNTjoDPmbDYYCLw5ebo9eQNv4A28OcpzlG/NQJQ3yhvlvWbXffPNN3ePHz8 hS OI0kV5Oesw/7WTvPsbaDNW9evXq3g/v7Xp6yDZl 580uyrvO8c/f /fg0nskAIQgAhM2Q1Bg63gff78 SjoQ 1V5sB6WvWJ9wfW12A3eAWlIBWAQOMDJA2YgF7LlafOg8rnxIH3WKAOreVu8FZYW7CovKWounrgT z51ddAGAWwpszaB2nmd sKPp4cmLmX7w31YeAUi0AFSCxbZAapgpQx75QWsAyl48U8ae6/3dKvvlO8L8GHhFRiCTACqXLHuylJWYtkKXqm25 XX79IOrKfVV J9Ya3zvxu8FQ4pKOV1kAJUCqn6IQDd1mGljeeH2vqYPK3 EgfeE5yopJRP0AEI4AAaaUEmNXWABLyuCdR5mWBVW9XhX37Vv/plTNgF3mOB6uuu9G7KywAEl458gHKIVE6sAXsMlNQJdPdJXfWPra4Qgff4cPpaD6V3hXdoQEuWC V4Bu6Tv Nof/k3gdQVVeovFD7z7A7bmOm8C75oPMOY78AbewfvmGDSpu21ojrK N628R5nkjGOdzRx480pktydr4A28gTdH4zpHY a1Pa9R3ihvv8rb27ekZLz5Zh4xkG/MyTfm9PuNOaI4cRStNwaivFHeKG9vuzbj7f kifJGeaO81yiZ//6ZfrjP/VB27idTqT9n4z5rWr/jph8b5BeLlK62yR9LrXdVXgeFND/a54BQNgYmkPETq/4D197 mrSP6Zr2abMd4LvBW39F3X82FQCUH4NXNoqXACfwbgff3PXaDd4KnMOMogItSjwGrxR36EeugbB 1LaGOz6kRM4EOrKfnTm7ar7sRdoMXeIBLC zwOpQteCuwtPFrBxCqLZvBoSTN5lHftS533nWh07zPjXeDt6W8lAvqMeW9/4SvAUg7yjQhDiRlgCy/tc7znpavxMeEeTd4XWmBQ9ACTw2oagWo2igvO/KuoIH3mABqva6Jd4NXR7kGXWGjvKW8gK8rgdoTV0DZEPLj/j1Nvec97b6TPh78u8ELDEAILAQd6Q5JC16H1O0danzqj7Lqn7yrsuc97b6TDrxvHf9rQREIjwfb 0mu9ifICUg1LP0j1F3gD72ZKWeGbmw 8gbdbeOfCn/bHh3 Ta0NAOD4IPa5R4M0rkd2eroE38AbeHo djLnv60yUN8ob5Y2K9a1iPa5flDfKG XtcedmzH2fFlHeKG UNyrWt4r1uH5R3ihvlPeanevv8 rFcfz4e7jnXrDh3d6hF9Onjkcvxev93nP9TfUbu/VPol2V10EhrQ9QAq/SYxAAHB8R0gc2x2yn1vmYpraJ3fqgDs3xbvCiuv6BSZRX6ouSToFXbRQPPeClZYF3HxAvXSfsd4 O3AucwAy8QEQT00MNJcQG9fkiTtq1rCXW6muCXfK4N/UArFnaDF3iASwNxeFWmiQCldggdftAFJ3YflxQH1TBN7 wIWR3eAdU17BS1whVx3lDiBpylTvQFIGyNostc7znpavxMeEezd4q9ICn ByWFrwAtlQUNsKYeA9JoBar2vi3eDVUa5BV9gol42Oe9kCua4EKiOugEqZuU64f0/TzvOedt9JHw/ 3eAFBiAEFoKrrsqI/R4rgBxSlcmfoKYtqi1f1b9vCGyU97T7Tjrwnu6ka8MQCI8H29JrvonySv08XvpBqr/AG3g3U8oK39x84A283cI7F/60Pz78m1wbAsLxQehxjQJvXons9nQNvIG3W3j/D/qASbcXC17KAAAAAElFTkSuQmCC

I think you would need to attach the jpg.

Regardless I believe that should be declared and set somewhere?

OK, I am going blind, sorry. :(
Walk your code with F8 and see if everything has valid values.

[Derek_123]

All variable (ProdMail,InputFolder,OutputFolder,ShareInbox) have valid values in them . As I mentioned earlier, The below line is giving an error and before that line all variables store correct values



Set SubFolder = ShareInbox.Folders(InputFolder) 'Change this line to specify folder

[georgiboy]

Have you tried it as below, keep in mind you need to specify the name of the shared mailbox in the below code:

Dim mynamespace As outlook.Namespace
Dim strRowData As String
Dim strDelimiter As String
Dim myDestFolder As outlook.Folder
Dim ShareInbox As outlook.MAPIFolder
Dim SubFolder As Object
Dim InputFolder As String
Dim OutputFolder As String
Dim ProdMail As String
Dim SavePath As String
Dim oXLApp As Object, oXLwb As Object, oXLws As Object
Dim lRow As Long

On Error Resume Next
Set oXLApp = GetObject(, "Excel.Application")

'~~> If not found then create new instance
If Err.Number <> 0 Then
Set oXLApp = CreateObject("Excel.Application")
End If
Err.Clear
On Error GoTo 0

'~~> Open the relevant file
SavePath = "\\C:\Macro"
Set oXLwb = oXLApp.Workbooks.Open(SavePath & "\Test.xlsx")

'Extract Mailbox and subfolder details from a sheet named as "Folder Details"

Set oXLws = oXLwb.Sheets("Folder Details")

ProdMail = oXLws.Range("B1")
InputFolder = oXLws.Range("B2")
OutputFolder = oXLws.Range("B3")


strRowData = ""

' Code to extract emails from specific subfolder within shared folder and copy the data across excel spreadsheet.
Set mynamespace = outlook.GetNamespace("MAPI")
Set ShareInbox = mynamespace.Session.Folders.Item("Name of shared mailbox") ' change to suit
Set SubFolder = ShareInbox.Folders.Item(InputFolder) 'Change this line to specify folder
Set myDestFolder = ShareInbox.Folders.Item(OutputFolder)

When I tested the above code the folders that I located were in a shared mailbox but outside of the shared mailbox inbox so to speak.

[Derek_123]

Thanks @georgiboy - So I created 2 subfolders within shared mailbox but outside the shared mailbox inbox and run the code by changing below 3 lines. Unfortunately it's still giving me the same error message. The code works fine on the personal email account. Do you think it's something to do with the permissions on the shared mailbox?



Set ShareInbox = mynamespace.Session.Folders.Item(ProdMail) ' change to suit
Set SubFolder = ShareInbox.Folders.Item(InputFolder) 'Change this line to specify folder
Set myDestFolder = ShareInbox.Folders.Item(OutputFolder)

[georgiboy]

What is the value of ProdMail when you run the code?

For example my shared mailbox as viewed on the folder view on the left hand view of Outlook is named: 'Distribution Returns'
For this reason ProdMail would have to be 'Distribution Returns' as a text string and not someone's email address.

[Derek_123]

Thanks a lot @georgiboy for all your help . It worked like a charm :)

[georgiboy]

You are welcome, glad we could help. Thanks for marking the thread as solved.