
How to Show Progress on Status Bar using VBA?
The below code will add serial numbers up to 500 in your sheet and along with it will show progress on the status bar. Sub progressStatusBar() Application.StatusBar= “Start Printing the… Read more »
The below code will add serial numbers up to 500 in your sheet and along with it will show progress on the status bar. Sub progressStatusBar() Application.StatusBar= “Start Printing the… Read more »
Here are the primitive commands to open an XML file in Microsoft Excel. Sub Open_XMLFile() Dim OXML As Workbook Set OXML = Workbooks.OpenXML(“c:\sample.xml”) End Sub Sub Open_XML_File_As_List() Dim OXML As… Read more »
The below code merges around 50 ascii files into one It uses File System Object and you need to add a reference of Microsoft Scripting Runtime Sub Append_Text_Files() Dim F1… Read more »
All you have to do just enter “reverse” function in a cell and refer to the cell in which you have text which you want to reverse. Public Function reverse(ByVal… Read more »
Just select a range and run this code, excel will speak all the text what you have in that range, cell by cell. Sub Speak() Selection.Speak End Sub Do wonders… Read more »
The below code will let you save each Worksheet as a single PDF Sub SaveWorkshetAsPDF() Dimws As Worksheet For Each ws In Worksheetsws.ExportAsFixedFormat xlTypePDF, “ENTER FOLDER NAME HERE” ; ws.Name… Read more »
The below code will check each cell from the selection and highlight the cell where is a misspelled word. Sub HighlightMisspelledCells() Dim rng As Range For Each rng In ActiveSheet.UsedRange… Read more »
The following code uses VBA to open and repair the workbook (the option available using Excel Open Dialog) Sub OpenAndRepairWorkbook() Dim oWB As Workbook On Error GoTo Err_Open Set oWB… Read more »
There are many cases where we need to get the document property without the file being opened in VBA. This can be achieved by using the objects available in DSOFile.dll…. Read more »
This snippet converts the TextBoxes / Shapes with Text that are available in PowerPoint Slide to Notes Section. Sub Export_TextBoxes_AsNotes() Dim oPPT As Presentation Dim oSlide As Slide Dim oSlideShape… Read more »