Clear Contents

[gmazza76]

Good Afternoon,

I am using a Macro to copy information to another sheet, which is working but i am now trying to clear the cells that have been copied.

The data is copied from a sheet called "Advocate Quality" to another, but i am having issues with the code.
The first line below works ok, but as i am trying to clear a range with the bottom 3 lines of VB it debugs. Can anyone point me in the right direction as i did just try adding Sheets("Amend Quality") in front of the range and removing range and it didnt work

Sheets("Amend Quality").Cells(97, 11).ClearContents     

Range(Cells(22, 2), Cells(25, 11)).ClearContents 
Range(Cells(37, 2), Cells(40, 11)).ClearContents 
Range(Cells(50, 2), Cells(53, 11)).ClearContents

Many Thanks

 

[VoG]

Try

With Sheets("Amend Quality")
    .Cells(97, 11).ClearContents
    .Range(.Cells(22, 2), .Cells(25, 11)).ClearContents
    .Range(.Cells(37, 2), .Cells(40, 11)).ClearContents
    .Range(.Cells(50, 2), .Cells(53, 11)).ClearContents
End With