Excel VBA 2

LG Excel VBA Code Examples

---

👉 Delete Blank Sheet

Sub deleteBlankWorksheets()
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating= False
Application.DisplayAlerts= False
For Each Ws In Application.Worksheets
If Application.WorksheetFunction.
CountA(Ws.UsedRange) = 0 Then
Ws.Delete
End If
Next
Application.ScreenUpdating= True
Application.DisplayAlerts= True
End Sub

👉 Find Excel Sheet Last Row

Dim LR
LR=Sheet1.Range("A" & Rows.Count).End(XlUp).Row

👉 Copy Data Range

Sheet1.Range("A2:P" & LR).Copy

👉 Activate Sheet From Range Value

Dim WBReport As Workbook
Dim WksMapping As Worksheet
WBReport.Sheets(WksMapping.Range("B2").Value).Activate

---

★★★ GaikwadLalasaheb2025 ★★★

---