Supress overwrite destination cells message in vba

[Robie]

Hi

I am using the code as follows to copy a column range to another sheet using the following code:

Code: Select all

                With Sheets(sFromSheet)
                    m = .Cells(.Rows.Count, COL2SETCROSSORTICK).End(xlUp).Row
                    Set CopyFrom = .Range(.Cells(1, COL2SETCROSSORTICK), .Cells(m, COL2SETCROSSORTICK))
                End With
                With Sheets(sToSheet)
                    Set CopyTo = .Range(.Cells(4, Col2CopyInto), .Cells(m, Col2CopyInto))
                    CopyTo.Clear
                End With
                CopyFrom.Copy CopyTo
                 ...
                 ...

The copy works fine(I also clear the copyto range just in case) but I get the message about overwriting destination cells as follows: Is there any way to avoid this message?

59.png

[HansV]

Insert a line

Code: Select all

    Application.DisplayAlerts = False

above the code that copies the cells, and

Code: Select all

    Application.DisplayAlerts = True

below it.

[Robie]

Insert a line

Code: Select all

    Application.DisplayAlerts = False

above the code that copies the cells, and

Code: Select all

    Application.DisplayAlerts = True

below it.

Fantastic Hans. Thank you very much.