Get Random List :


Here is a code to get random list in array, you can pass top and bottom value. Function GetRandList(ListCount As Long, Bottom As Long, Top As Long) As Variant     Dim lngCOunt As Long     If Bottom < Top Then         With CreateObject(“Scripting.Dictionary”)             Do While…

Find Mismatch Characters:


 Here is a code to highlight the misspelled characters in two Text paragraphs suppose you have data like this table, and you want to highlight the misspelled characters , you can use given code  Sub HighlightWrongCharacters()     Dim bytFirstWord()  As Byte     Dim bytSecondWord() As Byte     Dim VarArrData     Dim…

Exclude Contents From List :


Hi, What would be your approach to do this job 🙂  Suppose you have 2 List As showing below , and you need to remove List2 contents from List 1 , here is better code to accomplish this job , By using dictionary i just tried to make this process fast 🙂 Sub ExcludeFromList()  …

Download All Attachment from outlook Mails :


You can use this code to Download all Attachments in a specific folder from outlook mail. Sub SaveAttachment(StrPath As String)       Dim outLookApp       As Object     Dim ObjMitem         As Object     Dim NameSpace        As Object     Dim ObjFolder    …

Looping through Each Mail Item in Outlook Folder :


  Here is a Code to make loop on mail item in a particular folder of Outlook. you can use this code to make summary of received Mail Like  X person send Y Number of Mails.     Sub GetSummaryFromOutLook()       Dim outLookApp       As Object     Dim ObjMitem  …