Something like this perhaps:
![]()
Dim wa as Worksheet:Set wa=ActiveSheet wa.Copy After:=wa Range("C8:D38,H8:I38,M8:N38,R8:S38,W8:X38,AB8:AC38,AG8:AH38,AL8:AM38").ClearContents wa.Range("A1").Select
Something like this perhaps:
![]()
Dim wa as Worksheet:Set wa=ActiveSheet wa.Copy After:=wa Range("C8:D38,H8:I38,M8:N38,R8:S38,W8:X38,AB8:AC38,AG8:AH38,AL8:AM38").ClearContents wa.Range("A1").Select
If I've helped you, please consider adding to my reputation - just click on the liitle star at the left.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(Pride has no aftertaste.)
You can't do one thing. XLAdept
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aka Orrin
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks