test code

[gavmer]

Hello all,

The code below has been supplied to me however, i am having troubl
running it. A button on sheet 2 (quote) runs the code to delete th
ranger on sheet 1 (summary). At this point, nothing happens. The rang
name is 'appendix'. Can someone please test this????

Can this also be included to claer contents on sheet 2 (quote)

ActiveSheet.Range("D1315,C19:J19").ClearContents


Cheers!!!!!

Private Sub DelXtrRws ()
Dim Rng as Range, x as Single
Set rng = ActiveSheet.Range("YourRangeName")
x = rng.Rows.Count - 2
if x <= 0 then Exit Sub
rng.Offset(2, 0).Resize(x).EntireRow.Delete
End Su

 

[Don Guillett]

try this for any named range in the workbook.
range("yourrangename").clear

 

[gavmer]

Hi Don,

Thank you!!! Where would i insert into my original code!!!!

Cheers!!

 

[gavmer]

Hi Don,

All is fine and figured out. Thanks for your help!!!
Cheers!!!

 

[Don Guillett]

glad to help. Feels better when you figure it out by yourself, doesn't it?

 

[gavmer]

you have no idea. I have been given a huge taks and been bothering yo
all as i have NEVER used vba. But, ive learnt alot thanks to you al
and when i work something out for myself, yes, it is very rewarding!

Thanks to all!!!!!