'Procedure to Clear Contents from the Sheets
Sub SheetLabels(DestinationName As String, BranchName As String)
Dim Destination As Worksheet
**************************************************
THE LINE BELOW I GET ERROR 9 Can you advice please?
Set Destination = Worksheets(DestinationName)
**************************************************
'This will Clear the spreadsheet contents
On Error Resume Next
'Destination.Range("A1:G300").SpecialCells(xlCellTypeConstants).ClearContents
Destination.Range("A7:G36").SpecialCells(xlCellTypeConstants).ClearContents
Destination.Range("A40:E140").SpecialCells(xlCellTypeConstants).ClearContents
Destination.Range("C144:E152").SpecialCells(xlCellTypeConstants).ClearContents
Destination.Range("A156:E196").SpecialCells(xlCellTypeConstants).ClearContents
'Destination.Cells.SpecialCells(xlCellTypeConstants).ClearContents
Sub SheetLabels(DestinationName As String, BranchName As String)
Dim Destination As Worksheet
**************************************************
THE LINE BELOW I GET ERROR 9 Can you advice please?
Set Destination = Worksheets(DestinationName)
**************************************************
'This will Clear the spreadsheet contents
On Error Resume Next
'Destination.Range("A1:G300").SpecialCells(xlCellTypeConstants).ClearContents
Destination.Range("A7:G36").SpecialCells(xlCellTypeConstants).ClearContents
Destination.Range("A40:E140").SpecialCells(xlCellTypeConstants).ClearContents
Destination.Range("C144:E152").SpecialCells(xlCellTypeConstants).ClearContents
Destination.Range("A156:E196").SpecialCells(xlCellTypeConstants).ClearContents
'Destination.Cells.SpecialCells(xlCellTypeConstants).ClearContents