Reset VBA Password 1) Rename XLSM to Zip extension. 2) Don't extract this zip, but Open the file with 7-Zip 3) Copy file from xl -> ...

One of my friend ask me, is it possible to send multiple emails with attachments using Excel VBA. I said YES , everything is possible. Below...

Function to add QR-Code as image in your file. Function Insert_QR(codetext As String) Dim URL As String, MyCell As Range Set MyCell = App...

  Sub ConvertExcelToPDF() 'Export Single Sheets ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="TrainingDeo",     ...

TAB - horizontal tab Decimal Value is 9 Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim lRow As Long Dim lCol As Long ...

Private Sub Worksheet_Activate()     Dim getHeight As Single     Dim getWidth As Single         For i = 1 To 10         getHeight = Ra...

'Add module in VBA, Copy and Paste following code into it. Option Explicit Private Declare Function URLDownloadToFile Lib "url...

We work lot in excel and manage our work with functions and macros. I am here creating the process that will save your time and effort to ...

The code below retrieves the file in this directory and creates a list of their names and paths: Sub GetFileNameList() Dim objFSO As Ob...

There are many programmatic way to find last row of data input, but the simplest is.... Dim LastRow  LastRow = ws.Range("A1")....

Sub ExtractData () Dim obj For Each obj In ActiveSheet . OLEObjects If obj . progID = "Forms.HTML:TextArea.1"...

Function SpellNumber(ByVal n As Double, _                      Optional ByVal useword As Boolean = True, _                      Optio...

FielPath : Location of your Text file including file name. e.g.: c:\abc\abc.txt oldStr : search string into the file  newStr: replace th...

Convert a numeric value to English words: I have found many location where people who use excel they want to change the numeric value ...

About User Defined Functions Excel provides the user with a large collection of functions inbuilt, more than enough to satisfy the average...

Open new Excel file and insert new ActiveX Button control past following code in it's Click function. Private Sub CommandButton1_Click...