Popular Keywords

Excel Tutorials | Macros Code

Home
Macros Code

Insert Multiple Worksheets

Sub InsertMultipleSheets() Dim i As Integer i = _ InputBox(“Enter number of sheets to insert.”, _ “Enter Multiple Sheets”) Sheets.Add After:=ActiveSheet, Count:=i End Sub Excel

Protect all Worksheets Instantly

Sub ProtectAllWorskeets() Dim ws As Worksheet Dim ps As String ps = InputBox(“Enter a Password.”, vbOKCancel) For Each ws In ActiveWorkbook.Worksheets ws.Protect Password:=ps Next ws

Sub DeleteWorksheets() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.name <> ThisWorkbook.ActiveSheet.name Then Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If

Hide Inactive Worksheet

Sub HideWorksheet() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> ThisWorkbook.ActiveSheet.Name Then ws.Visible = xlSheetHidden End If Next ws End Sub

Print Custom Pages

Sub printCustomSelection() Dim startpage As Integer Dim endpage As Integer startpage = _ InputBox(“Please Enter Start Page number.”, “Enter Value”) If Not WorksheetFunction.IsNumber(startpage) Then MsgBox

Print Selection

Sub printSelection() Selection.PrintOut Copies:=1, Collate:=True End Sub Excel Macro code to Print Selection in Excel sheet. This code will help you print selected range. You

Print Narrow Margin

Sub printNarrowMargin() With ActiveSheet.PageSetup .LeftMargin = Application .InchesToPoints (0.25) .RightMargin = Application.InchesToPoints(0.25) .TopMargin = Application.InchesToPoints(0.75) .BottomMargin = Application.InchesToPoints(0.75) .HeaderMargin = Application.InchesToPoints(0.3) .FooterMargin = Application.InchesToPoints(0.3) End

Print Comments

Print Comments Sub printComments() With ActiveSheet.PageSetup .printComments = xlPrintSheetEnd End With End Sub VBA macro code for Print Comments. Use this macro to activate settings

100 Useful VBA Macro Codes In Excel

What is a Macro Code? In MS Excel, macro code is a programming code which is written in VBA (Visual Basic for Applications) language. The

Highlight Greater than Values

Sub HighlightGreaterThanValues() Dim i As Integer i = InputBox(“Enter Greater Than Value”, “Enter Value”) Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, _ Operator:=xlGreater, Formula1:=i Selection.FormatConditions(Selection.FormatConditions.Count).S tFirstPriority With Selection.FormatConditions(1) .Font.Color

Highlight Lower Than Values

Sub HighlightLowerThanValues() Dim i As Integer i = InputBox(“Enter Lower Than Value”, “Enter Value”) Selection.FormatConditions.Delete Selection.FormatConditions.Add _ Type:=xlCellValue, _ Operator:=xlLower, _ Formula1:=i Selection.FormatConditions(Selection.FormatConditions.Count).S tFirstPriority With

Highlight Negative Numbers

Sub highlightNegativeNumbers() Dim Rng As Range For Each Rng In Selection If WorksheetFunction.IsNumber(Rng) Then If Rng.Value < 0 Then Rng.Font.Color= -16776961 End If End If

Free Excel Templates

Welcome to Excel Templates – your ultimate destination for all things related to Excel! We pride ourselves on being a comprehensive, 100% free platform dedicated to providing top-notch, easily editable Excel templates, step-by-step tutorials, and useful macro codes. With fresh templates uploaded daily, we aim to meet every conceivable Excel need you may have. Whether you’re a student, a business professional, or someone looking to make sense of their data, our range of templates has you covered. Dive into the world of Excel Templates today and transform your number-crunching experience into an effortless journey of discovery and efficiency. Join our growing community and elevate your Excel game now.

Blogs

DMCA Policy

Site Map