vba add worksheet checkboxes

[malleshg24]

Hi Team,


I want to add VBA code in Private Sub Workbook_Open event.


I want to add worksheet names in Column D and checkboxes in Column E. Except few sheet names


While opening workbook if Checkbox already checked then don't delete it or uncheck it.


checked = sheet visible.

after opening workbook all checked boxes clicked sheet should be visible.


http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAckAAADUCAYAAAD3ANiAAAAAAXNSR0IArs4c6QAA AARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAB22SURBVHhe7d2xb9vo/cfxr /PuC2oGRSup ImCehQ3FApuMKTpgCZjkInaclNBooDNNWLPBViJgPnRVPwSyPdcMhQwJpuVI0gdBF0ydT CbZ/z/OQFCmKjyglMkmZ7xfwnCM9lEXSOn70JR/pOfj06dO9AACAFV FPwEAQAohCQCABSEJAIAFIQkAgAUhCQCABSEJAIAFIQkAgEVmSP73v/8N/1VPbD/bj91jv2JbVXjNZIbk7e1t K96YvvZfuwe xXbqsJrhpDMwPaz/dg99iu2VYXXDCGZge1n 7F77FdsqwqvGROS//vf/8yNCAdJtr/OOJg/DPYrtlWF18xXOiD/85//hDcDZa/Yux lq9/eBfeKl452/9Ofvhabfei/VlefQy7Clbu3/ jvPpzcj/8oPZMsap9ME /TnQr77WyjWrv1zLs79 yKOW9ZuK/zVfpgNRKfTF/fCXD98/l fufCz84Rsrb/m/kx6tP8umTaj/9Vv7ae6Uio3jlvjCb8ua7q2Af6HblyL8LfiFU/2CeeJ1Er5Xm11Li 8qNVH /liH1t/z0f/L9k7ALJb9mgr9N5a5Jfvzljch3f5G/fPdehiW9parE/8xPHPUnKkdZ2//uh fy/scr b/kUeLJ9/L9H8N/F2TvDuZ//JsKyufy07CcN1Wb2rv9itJV4TVTsZD8KCYjv30iT779TuTNLzWrpGLBm4VvpYw3leVs/zv5WR3o xV4G72XB/M//kme//pGfqlwSu7lfkWpqvCaqVZIfvxF3sh3ojJSVRDfqn V8z99eX YX81pM30evPnmOzkvKTBK2f6P/5b34T/LxsH8YbBfs8T/zwet GvwVVbuayb421QqJJerpycSFJPFp2R5f5jE9Ym L82S/ocpZfuf/EZ G/6zbPt7MP t/Kb8Qtxqf/frQ0pfk/ybFHx1odLKfc1U7prkO/n7X3 VX//aXLyraprbfy88KCrxP7M faZqq3/XppJ Is43P8nPFXgbvY8H84 vhvLT8z9V gC7j/sV5arCa6Y6IfnuZ/npmx/lavGOSrcr bGEA2cl/mfW 6OkyqCc7X8i3/efqwN9apTmx1fyqo5//y18fPVn9YZS5Me/VLsG2bf9ivJV4TVTmZB89/NP8s3KQBV9yvUb anglCzvD5O4PvH8vSr1yzn1Utr261GaVz/KexWUi2s0PZFvGd2asnwdS1 /vtqDjw5Uf7 WIX1Nsvof5SlSFV4zB//4xz/u9T9 //vfmzu0f/7zn/KHP/whvFU/bD/bX ftfyjsV2yrCq Zao1urQi2n 3H7rFfsa0qvGa 0hVksorUOEiy/XXGwfxhsF xrSq8ZqgkM7D9bD92j/2KbVXhNUNIZmD72X7sHvsV26rCa bg8vLyXq/I3d2dWSH9UzcAAOru4NOnT2Z0a9KbN2/Edd3wVv3861//kt/97nfhrfqp /YfHBzI/cr/FfhSareyX7GV4DVT7osm83QrAAAgJAEAsCIkAQCwICQBALAgJIEvcN4U6U7DG9iph9q3634vf0 kEZJAHnXQ1KPsolbkQfTmXD1nN7wRmqrbej2aqi8pa9nKu1Hbkdi3Byqk1F1AZRCSwDr6IN4WcS fBxxfMaPRB QfyRkNk1jf5vb/0mw9HpOPH 9bviLxIhT9QJkIS2MCROphHRlcih G/I91ENXSeSlB9Cm9RKamWDjZbv77fUUEoXnD/UuWowmSogrK9rnJMVWnJClj/br2eyfXW3cl12WY7TBWb6Es/Nks3fPPRS zMw57IlWpJn71v12z/grpP96V/72c9Z/h8i XTt5Vd70MUQH ZQLqNRqP7OpvP5 G/6qnu26/ t9D/XTQVRua ob98f1bfxFW3VYv607f9obqtHuNv2G9uJ/p1049pqPvv1XOqnFw8d3pZN/17Erej9Z6kbqvQylx 7XqG6xH9Lltb2q8bPOZL962rHmv2U3Q77NO/12ynasnfr1v6Oc3vTKyn6U8/Z6I/uQ562eTz72If1q3pfVs2QjIDIUlIJv9H1c0c4NT9uqUPqlGwmKYPvKkDX3J53fTB29yX16/ bQ6kiQOrbnpdooOvWa/w bKWXbTwuZIH R6rzw2DBCzfN56hv1L yGjLe3X5O 3tC/at2t v/m9anuzHr/ynKqltzP9O5N/r h2Q/2exbrqFj7Wur5hf94 rFsLXjPl4nQrsIHWSP/fKqLCRPrOdqfC9PLJ02heeH8kr38dvV7uLPs63tLpO/UcarEvYl3PQ5ErX2TeDu5PDyh6SGv3nUod1Z3J62 3P67V9olqWY85Us9j kOjiVpOLeierp6Wr I xHqEJLAFfc1MVRtLB8U8qvIwAZtsyetwef15zEFZHfTfhreNaXA9c/G71fqq1f4ia9dTH TD 47V8 aOAG6pEFE/Xuctl2PtOqmgsv2ZVMUWvOF5YS4d5jLXpFXL2ofX6nmS16z1tdah t2e pnevJ3uQxSCkATW0NXY0rt6deDqpw6KVuqg11FH1YGtKsjrj8xzDuQqcHRw99WB1WZ6tl3ltGTT 9QzpymoTL8MgSVblK/vbJm dwhBO9neby/vRvOFRP53U4KfkOun18dTzPFPPFz1ncrDUUr iP57jqSfuhW mFss 0D7EwyMkgTX0gbQzTpwi01WCKk82rfR6V6nH65Y4WOf1Hz5T1YtKN0fdvy48ehepKkeFxEQdrNv h7xwcBaHxudaup3rjkLy/f6yqW/X8efS jU5fR4911HNcqPs3kbfvRrqMVG8cor4jtY/Sfzb9O1xved8OVZU5DtfJVONqmehx0fLR79Tr60f9aj 0Vd9kZBYN/ibqdhS4D7EP8fCYKisDU2UxVZY 5YXd0gd/9iu2Ebxmyn3RUEkCAGBBSAIAYEFIAgBgcXB5eXl/e3srd3d3Ev3UrdlshosA9XJ8fBz C0DZ5vN5 K9yMHAnAwN32P46b/9DYb9iW1V4zXC6FQAAC0ISAAALQhIAAAtCEkBp9Bc3bNuAIhGSwGe7kfPmAV9E/YX0N6ps2oCiEZKopZvzpqlKmpvMeTXtLlUyRYaiWc/UE0brXsb6AHVDSKJmptJVwfJCTs0sDbluzqXZ9sSdRNXMxEzlsEG0Pgy1Pi/GHfHDyspXG G1u/r7sR8t/UYAKAshiZppyUiFy1Vvk7muIo3E1Fjq8Ve91GwSQfAGlV0zNSFzcEo2rvzSgWbrD 539LxcXtv0mar3sCdXiec/fNZRazeXD6Wl9sPS2w2UiZAE1jl8Jp3GTPpOOvxiXnsgR35Q2U1ctexZHIPTriP940lYherKby7 tZlyJ2vsPpXcVVIp6hmDdd5U1P5d/LTM5lqcZXfsmHYgEJKqAkATWCsLKhJ jK73VsHQnV4v5JVsnrsj8QxCCN cy8BoyfBlPDHjYOxV3Npa3eoG8/lyq2hx40hi 1NNHPgpRMCYDUr9BAMpCSAIbaI2iSk9PEmyvKldF4Rq1tnhhTyCv385UoTKUi01ngN4TBCSqhJA EtnDYu5BhYybXetb7jbgyUQd6fbCPW1x55vdnm3YPpD0fir9yfXR/6W1PSt8GykBIAmvoj1ssfUxkeib9WXIgzxrmeqYnA1vZmdcfiU7fGsGAnscWkJEoGAlIVAUhiZq JRqI6KuxEZn3HnN6zfV5SV46dcbCMae25DP38Si gr2f6y4/XbTFwJ69f52hHGrO OOp s44mpFVHeN/iMY/ow5IEJKqEqbIyMFUU28 UTruXtV91wG8Titsuj/3GVFkAam9RDW/QgKIRkgBKo6vCbRtQJEISAACLg8vLy/vb21u5u7uT6KduzWYzXAQAgHpi4E4GBq6w/Qzc2T32K7bFwB0AACqMkAQAwIKQBADAgpAEUJqsz0LmNaBIhCTw2YLvUX1E3whXiqzPQtoaUDRC ErWjv7Q8WZnkhty0u93yO2TWNfWEy vfFTIaeDiEJOrl5lxejDvih5WJnvnfa68JGrV8s 2JO4mqmYnIIP4C8uJN5Syx/hPXk/YjL2X1mwGgLIQk6uWwJ1eJKabMLBsylw9rUy85NVZLRitTVEUzi iWnpA5OCVrr/xs/cH9jp7yw2ubvmCmkuXnd44aqam0Hhe93UCZCEnUm38tMzmWp7apr8ycjzPpO nwi3ntgRz5UWWnlj2LY3DadaR/PAmrUF25zqWdmArL3q n0QoqXVXGmr6rlfm5VFWpQrTReZYK7f2UDkQCElVASKLGVLU28KQxfKnqM5sgrEz4ObrSWw1Ldx LPL9k6cePK7uZcBl5Dhi/j337YOxV3Npa3eoG8fpvFNdK2eCpAV8Nzf0XBmAxI/QYBKAshidoyVZwM5WKDkGmNokpP1laVq6JwjZoKtrAnkNefoTWKK8 jgXrM4xq8Q0CiSghJ1NK0eyDt VD8leuL6x32LmTYmMm1H96Ry5VJGGhxiyvP/P71Nrumuh/0tielbwNlICRRM8GAmE0DUn/cIhgwE5qeSX WHMizhrme6cnAVnbm9UeSA3P0aNvEaNabt P111T3TBSMBCSqgpBEvZiQUz9nfXEWpzhVs3yMQleOnbETL9eey9DftNLT1zP95cfrthi4k9evc 1RViuG6mrDWwToPRrvq5vRFrc9ozTXV/UNAokqYKisDU0Wx/UzptHtZ 1UH/TahuO3y2G9MlQWg9qKqeJMGFI2QBFAaXRVu24AiEZIAAFgcXF5e3t/e3srd3Z1EP3VrNpvhIgAA1BMDdzIwcIXtZ DO7rFfsS0G7gAAUGGEJAAAFoQkAAAWhCSA0mR9FjKvAUUiJIHPFnwPrOUb7bChrM9C2hpQNEISt aO/tDyuTDaYZmoxf2PQigxFs66WJ9Qzmej1WfoCdgA7RUiiZqZyNu6IH1YmE9eT9rrU07NutD1xJ1E 1MxEZxF9AXhoV3O25K24jvA3gQRCSqJmWjBJTZDlHKmWSU1FlSk6Ntfz4wFS6i0ozPSFzcEo2rk TTlautP7jf0VOWeMGsH3HFqPoGKrhPX8pReA Ah0FIosZUValCqNF5Zp9X0sz5OJO kw6/mNceyJEfVaZq2bM4BqddR/rHk7AKvRd/OJd2Yiose7 eRkvfViHuBv1X4fxcN cvzGNGj2l LKCiCEnUz IaY1s8FUBR GQLwsqEn6MfsxqW7iSeX7J14saV6c25DLyGDF/GaXbYOxV3Npa3eoG8/izqMS/6xzIhIYFCEJKon9YortyOBolTnHatUVTpydqqclUUrlFTwRz2BPL6k27k/EVfjiePa5JloMoISdSamflf5vJhw9A77F3IsDGTaz 8I5crkzCQ4xZXnvn9Sb5cm0uUUaA6oi9ZzvqOHCRO4QLYHUIS9aJHqyZGs968Hata7lieWs646o 9gLH3EYnqmgik5kGcNcz3Tk4Gt7MzrjywGFrVktBSmvgpskcbQl/uVwUQAdoGQRL3oYJoHo0V1c/oiQ99 lJXjp2xqtSi06HtuVreVuml6euZ/vLjdVtUfXn9enVVpTvri6Pu5/OQQPGYKisDU0Wx/UzptHtZ 1W/KdBV8aa2XR77jamyANTeUhWd04CiEZIAShNfX928AUUiJAEAsDi4vLy8v729lbu7O4l 6tZsNsNFAACoJwbuZGDgCtvPwJ3dY79iWwzcAQCgwghJAAAsCEkAACwISQClyfosZF4DikRIAp8 tmBg58VWw AxZn4W0NaBohCRqa9oNKpPc70RdzD8ZtCJDUX/B sHSEwbBnFyf5X4Au0RIop5U8LXnrriN8LaNnjWk7Yk7iaqZicig/Gmp4vVRjQmYgQdDSKKGVDU2UMF3 lKOwnvWS06N1ZLRyrRUU kuKrv0hMzpyi89wbOtP7jf0RNGesGsJcwCAhSPkETt3Jy/kP7xRDYqwMycjzPpO nwi3ntgRz5QVU3cdWyZ3EMTruOea6o6vOHc2knpsKy9 tptPRtVeq6Qf9VYn6ueOJl 3oB HKEJOrl5lxe9I9lsvEpyiCsTPg52aHkTuL5JVsnbjxJsnqugdeQ4cv4uQ57p LOxvJWL5DXnylYnzhURa1XujoFsCuEJGrkRs5f9OV4Yp9k2aY1SobSNtVbFK5Ra4sX9gTy tczoaoe8ZqUBB4EIYka8eXaXOKLAskRfclv1nfkIHEKdJ3D3oUMGzO59sM7crkyCau uMWVZ35/jpsPMl 6ZgpglwhJ1EhLRkth5KvAE2kMfblfGYwT0B/BWBowMz1TwbphKJnrmZ4MbGVnXn8kOn2rTLvLVez0rC zRkeebRqqALZCSAJr6MqxM1aVZnQ6tD2Xob9ppaevH/rLj9dtUbXm9esc7Uhj1hdH3a/DunVyvHR6tj0fim8JeABfjqmyMjBVFNvPlE67l7VfddDrqn5T2y6P/cZUWQBqL6qKN2lA0QhJAKWJrw9v3oAiEZIAAFgcXF5e3t/e3srd3Z1EP3VrNpvhIgAA1BMDdzIwcIXtZ DO7rFfsS0G7gAAUGGEJAAAFoQkAAAWhCSA0mR9FjKvAUUiJIHPFkyM3GUGji S9VlIWwOKRkiiZoJgW6pO8lJu2l1avshQ1F wnrV 5v7FOjHxMvBQCEnUkjtJVCjrJmC OZdm20ssPxEZbDat1kPRAemMO JH67/N1FoAtkJIArmSU2O1ZLQy68ZUutaqLl25dtXSSbb 4H5HT3jptU1fMGXXVM76IsMLZv4AikBIopbiiZdzTlWaOR9n0nfsy3ntgRz5QVU3cdWyZ3EMTru O9I8nYcV3L/5wLu3EVFj2fj2Nlr7d0GWv6bvS5aKZZFlk/CIRrFwUBR4MIYmaCcInDiVRAZiu7pKC5U34mXkcV8PSncSnO1snbjxJ8s25DLyGDF/Gp3MPe6fizsbyVi Q15/FvxZVW0rnItwGtQENVWmSk8DDICRRayaUxJPXOSHTGiVDdZuBMlG4Rq2tni0prz/LsTyNzrWaSlfn8sYrBGALhCTqzZy TF5zXO wdyHDxkyu/fCOXK5Mwqo1bsmBNnn9Kc6RWtu5kIlAMQhJ1Mq0u1wFTs/6Mmt05JkllPRI0mDATGh6Jv3ZhqFqqjxPBrayM68/Ep2 1cJrpOPofGy4Ph3bBgD4IoQkaqV1crx0erM9H4q/Mlo1pivHztiJT4e25zL0N/3Ihb6e6S8/XrfFwJ28fp2JHWnM uKo 4OwVo 5MOd8g2XNx1P4CAjwUJgqKwNTRbH9TOm0e1n7VQe9PsW8qW2Xx35jqiwAtbeooDdoQNEISQClWR 6wtFkDikRIAgBgcXB5eXl/e3srd3d3Ev3UrdlshosAAFBPDNzJwMAVtp BO7vHfsW2GLgDAECFEZIAAFgQkgAAWBCSAEqT9VnIvAYUiZAEPlswMTLTVH2ZrM9C2hpQNEISta S/uDyuTnKmvpp2E8sWG4pmPZNPmFqXuK2bExPA5yIkUTs6eJxxR/xFhbLmC8JvzqVpvkQ8WnYiMoi/gLxwrVG4HnGb6E9ruScST938uOg3AUBZCEnUzFTO iLDC/vMH6uSU2O1ZLQya8hUuouKLl2VBqdk7RWfrT 43 nPRLy26VuasiuiQnzgNWT48nFGpN5uoEyEJOrFTLIsMn6RCKZ150/D Rv7jv2UrNceyJEfVXVq2bP49027jvSPJ4uqzx/OpZ2YCsver6fR0rcbqkoM q8yyl0zH6Z7 iimykoHIgGJKiAkUS/ tajaTDoX4elKfygNVanZczIIKxN Zh7K1bBMzufYOnHjSZIzqrzD3qm4s7GYOZPz nNN5bWnz7Q nioyCsZkQOq/E1AWQhI1dCxPo8rLVIo619anUmsUVXp6vuOcgT5LonCNWltUriXk9dvdnA/EawzlsZ1pJSBRJYQk6sU5kobMJScTrQ57FzJszOTaD /I5cpEV6xLLTlQKK/fRl9bnYl7us211WrT256Uvg2UgZBEvYTXGMfR czpmfRnDek8y44aPRJ2acBMuHw8kGcN81yeDGxlZ15/JDp9m2CqSBWwj hMqxEFIwGJqiAkUTOH0rsw50yD05vm4x32yk1Xjp1xuKxZfi5Df5NKT9PXM/3lx u2GLiT169ztCONWV8cdX8c1kEV2Ri fJQf yAgUSVMlZWBqaLYfqZ02r2s/arfFGwTitsuj/3GVFkAam pis5pQNEISQCl0VXhtg0oEiEJAIDFweXl5f3t7a3c3d1J9FO3ZrMZLgIAQD0xcCcDA1fYfgbu7B 77Fdti4A4AABVGSAIAYEFIAgBgQUgCKE3WZyHzGlAkQhL4bMHEyOumo0S rM9C2hpQNEIS9TLtZlYnBwddsWZd6jFFhqL gvWVSaFT67P0BewAdoqQRL20RivVyUR/2sk9yf6y8JtzaZovQY Wn4gM4i8gL95UuuZL1sP1MRNcvthifsv9o98IAGUhJFFvKgQHXkOGa2cuTk6N1ZLRVXoORxVci8 ouPSFzcEo2rvzSFautP7jf6c9EvLbpMxXjzQeZL00a/VTderz0dgNlIiRRa9OzvszcU/vUV H8k30nHX4xrz2Qo7Cym7hq2bM4BqddR/rHk7AKvRd/OJd2Yiose7 eRkvfbqgqN i/0it52JNT15O2CVMdpG2ZDy82nLqr2tKBSECiCghJ1NhUXnv6TOu6KjIIKxN jq70VsMyOR9l68SNJ0nOqFIPe6fizsZi5nzO67dojfT66KBUAStDuXgMCRmKgjEZkPoNAlAWQhK 1ZWb3bwxl7ZnWkA6moNLT8zXbq8pVUbhGrS0qlxPy tOCU7uvT8L16YzFyQjufUZAokoISdRUMLu/e5q vrjeYe9Cho2ZXPvhHblcmagDvT7Yxy2uPPP7l6WDPVqf8brSc0/obU9K3wbKQEiilkzYqIBae6ZV0R/BWPqIxfRM rPkQJ41zPVMTwa2Mi vPxKdvlUOnx6r4vNaFhl981bGM5HjxUie/RYFIwGJqiAkUUNBFdkYvsz 2EeCrtQ6Yyc HWo fmGv9Jbp65n 8uN1WwzcyevXOdqRxqwvjrrfhHVrFF6PDJd1 qJWSEYbnDLeFwQkqoSpsjIwVRTbz5ROu5e1X3XQbxOK2y6P/cZUWQBqb1FBb9CAohGSAEqjq8JtG1AkQhIAAIuDy8vL 9vbW7m7u5Pop27NZjNcBACAemLgTgYGrrD9DNzZPfYrtsXAHQAAKoyQBADAgpAEAMCCkARQmqzP QuY1oEiEJPDZgomRu8uzKGNLWZ FtDWgaIQk6mfaXapMlr7APEtq SJDUX/B kH6CZfW53FNkwVUDSGJmplK13xJeVidmAkiX9iD5uZcmm1P3ElUzUxEBvEXkBdOB2Ry/SfH0ne6aqseL/1mACgLIYl6ufkgczmWxcxSh0/VrTzJqbFaMrpKz0EZTIScXdkFp2Tjyi8daLb 4H6nPxPx2qZPV7w3H ZqdTryLFqB1om4aos PNJqUm83UCZCEvVy2JNTM9WUDiMdRG2ZDy/sU1 ZOR9nqlqzn9b02gM5Ciu7iauWPYtjcNp1pH88CavQe/GHc2knpsKy9 tptPTthqgy1vRdqZVcmU/S2GYS6OpKByIBiSogJFE7rZEOMx2UKqBkKBdrJ4cMwsqEn6MrvdWwdCfx/JKtEzeeJPnmXAZeQ4Yv48keD3un4s7G8lYvkNefJT2f5MFA5ipHH4soGJMBqd8gAGUhJFEzwanR 1ydh5dYZi7PB4BcdrEGlJ2urylVRuEatLV7YE8jrXxWtS9BO5XgWdjwSBCSqhJBErdycD8RrDCU q3g57FzJszGRsLd2WRctvfnrTlcki0KIWV575/Tmmr1WounISF6N7S297Uvo2UAZCErWyck3v5q2MVSV2vBjJs0x/BGPpIyLTM nPkgN51jDXMz0Z2MrOvP5IdPp2hR6p60lj FIeQUYaUTASkKgKQhL1kr6m5/RFhr6MLCmjK8fO2IlPh5qPX2xa6enrmf7y43VbDNzJ69c52pHGrC Out Etf5IymJZPejINwN6HhMCElXCVFkZmCqK7WdKp93L2q867LcJxW2Xx35jqiwAtbeooDdoQNEISQ Cl0VXhtg0oEiEJAIDFweXl5f3t7a3c3d1J9FO3ZrMZLgIAQD0xcCcDA1fYfgbu7B77Fdti4A4AA BVGSAIAYEFIAgCQSeT/AbvXqFpa7QvJAAAAAElFTkSuQmCC



Attached sample workbook !!

Thanks
mg

[Paul_Hossler]

You can try this

I used WB Names to hold the Visible status for each worksheet (i.e. Name = cb_Sheet3, BUT i used the Code Name, not the ws tab name) so that it would be saved with the WB





Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call pvtNamesDeleteAdd
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call pvtNamesDeleteAdd
End Sub


Private Sub Workbook_Open()
Dim ws As Worksheet
Dim cb As CheckBox
Dim r As Long
Dim i As Long
Dim sName As String


Application.ScreenUpdating = False

'using Code Name for the Worksheets("Master")
For i = Master.CheckBoxes.Count To 1 Step -1
Master.CheckBoxes(i).Delete
Next i

With ActiveWorkbook
r = 1
For Each ws In .Worksheets

sName = "cb_" & ws.CodeName

If Not ws Is Master Then
r = r + 1
With Master
.Cells(r, "D").Value = ws.Name
.Cells(r, "c").Value = r - 1
Set cb = .CheckBoxes.Add(.Cells(r, "E").Left, .Cells(r, "E").Top, .Cells(r, "E").Width, .Cells(r, "E").Height)
End With

'incase of new sheet
i = -1
On Error Resume Next
i = ThisWorkbook.Names(sName).Index
On Error GoTo 0

If i = -1 Then Call ActiveWorkbook.Names.Add(sName, "=" & ws.Visible)

With cb
.Name = sName
.Caption = ws.Name 'not the code name, but what the user sees
If ActiveWorkbook.Names(sName).RefersTo = "=-1" Then
.Value = xlOn
Else
.Value = xlOff
End If
.Display3DShading = False
.OnAction = "CheckBox_Click"
End With
End If
Next

End With


Application.ScreenUpdating = True
End Sub


'==================================================================
Private Sub pvtNamesDeleteAdd()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If Not ws Is Master Then
On Error Resume Next
ActiveWorkbook.Names("cb" & ws.CodeName).Delete
On Error GoTo 0
Call ActiveWorkbook.Names.Add("cb_" & ws.CodeName, "=" & ws.Visible)
End If
Next


End Sub

[snb]

Please tell me: what is your problem using Excel's built in options ?
Why rebuilding what is already there ?
What's more: the Excel option offers to select and (un)hide more than 1 sheet at a time.

29460

But if you want to to pursue this path:

- use an ActiveX Listbox; property Liststyle=1; property Multiselect=1

To fill the Listbox:


Private Sub Workbook_Open()
For Each it In Sheets
c00 = c00 & "|" & it.Name
Next
Sheet1.ListBox1.List = Split(Mid(c00, 2), "|")
End Sub

[p45cal]

cross posted? https://www.mrexcel.com/board/threads/vba-help-worksheet-checkboxes-addition-deletion.1197715/

[Aussiebear]

@ malleshg24, If theres one thing that really fires me up is that fact that people cross post and try to hide this fact. The VBA community is small and posts here are noticed by our members who by their choice are also members elsewhere. Cross posting (with out notifying others of your actions) is utterly disrespectful to those here who make the effort to assist you in your issues. The rules of this website is very much alignment with almost every other website dealing with vba. So, Malleshg24 I'm benching you for this game, hit the showers son, you are done.