Function for counting words in a cell excluding space (ready vba code just copy , paste and run) Function COUNTWORDS(Text_String As String) As Integer 'User define function counts the number of words in a cell exclude space 'www.anilnahar.com String_Length = Len(Text_String) For Current_Character = 1 To String_Length COUNTWORDS =…
Auto Fit Columns

Sub AutoFitColumns() ‘ Smart code for Autofit all columns of Active Worksheet ‘ Smart Excel(anilnahar.com) Cells.Select Cells.EntireColumn.AutoFit End Sub
Alphabets Serial Capital And Small Letter

Sub Alphabets_capital() ‘ Smart code for Serial Alphabets in Capital Letters from select cell ‘ Smart Excel (www.anilnahar.com) Dim i As Integer For i = 65 To 90 ActiveCell.Value = Chr(i) ActiveCell.Offset(1, 0).Select Next i End Sub ————— Sub Alphabets_small()…

Sub MulipleTextFiles() ‘SmartCode for Insert Multiple text file in worksheets ‘SmartExcel(www.anilnahar.com) Dim xFilesToOpen As Variant Dim I As Integer Dim xWb As Workbook Dim xTempWb As Workbook Dim xDelimiter As String Dim xScreen As Boolean On Error GoTo ErrHandler xScreen…
Ready to Use 101 Powerful MS Excel VBA Code

Increase Your Excel Productivity 10x :   This book is to provide basic guideline for people interested in Excel VBA programming. Collection of ready code has been used on reality platform by technical and non technical users on their routine…