Spaces:

vishakhad30
/

ImageResizer

Sleeping

Laxmikant Nirmohi

read both tabs

38fdd3d 4 months ago

529 Bytes

Attribute VB_Name = "Module1"
Option Explicit

' Clears data from row 2 onward and removes duplicate highlights.
' Prefer ClearSheet.ClearSheetData for archiving + clear.
Sub ClearAll()
    Dim ws As Worksheet
    On Error GoTo ErrorHandler

    Set ws = ActiveSheet
    ws.Range(ws.Cells(2, 1), ws.Cells(ws.Rows.Count, ws.Columns.Count)).ClearContents
    ClearDuplicateHighlights ws
    Exit Sub

ErrorHandler:
    MsgBox "Clear could not be completed." & vbCrLf & _
           Err.Description, vbCritical, "Clear All"
End Sub

	Attribute VB_Name = "Module1"
	Option Explicit

	' Clears data from row 2 onward and removes duplicate highlights.
	' Prefer ClearSheet.ClearSheetData for archiving + clear.
	Sub ClearAll()
	Dim ws As Worksheet
	On Error GoTo ErrorHandler

	Set ws = ActiveSheet
	ws.Range(ws.Cells(2, 1), ws.Cells(ws.Rows.Count, ws.Columns.Count)).ClearContents
	ClearDuplicateHighlights ws
	Exit Sub

	ErrorHandler:
	MsgBox "Clear could not be completed." & vbCrLf & _
	Err.Description, vbCritical, "Clear All"
	End Sub