I'm modifying some existing code to clear the contents of worksheet "RDBMerge" and then to set this worksheet as a variable called DestSh.Name
I've managed to clear the contents, but I need help with the second part to set it as a variable instead of creating a new RDBMerge worksheet.


' Clear the summary sheet.
Application.DisplayAlerts = False
On Error Resume Next


Sheets("RDBMergeSheet").UsedRange.ClearContents
On Error GoTo 0
Application.DisplayAlerts = True

' Add a new summary worksheet.
Set DestSh = ActiveWorkbook.Worksheets.Add
DestSh.Name = "RDBMergeSheet"

Use the VBA code name of the sheet so you will always be dealing with the same sheet no matter what the current tab name is.

Nosparks, Highlighted DestSh is now coming up as Invalid qualifier.
Originally I had "Dim DestSh As Worksheet" rather than "string"?



Sub CopyDataWithoutHeaders()
Dim sh As Worksheet
Dim DestSh As String
Dim Last As Long
Dim shLast As Long
Dim CopyRng As Range
Dim StartRow As Long

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

' Clear the summary sheet.
DestSh = "RDBMergeSheet"
With Sheet26 '<~~~~ the sheet's code name
.UsedRange.ClearContents
.Name = DestSh
End With

' Fill in the start row.
StartRow = 7

' Loop through all worksheets and copy the data to the
' summary worksheet.
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> DestSh.Name Then

Remove .Name from DestSh.Name

What that line is saying...
If the sheet name of the sheet being considered is not equal to the variable DestSh