SQUIDD
Well-known Member
- Joined
- Jan 2, 2009
- Messages
- 2,104
- Office Version
- 2019
- 2016
- Platform
- Windows
Hi All
I am trying to re-write my code better, rather than posting my entire code, I am adjusting what I know I can do.
I have just got stuck at this bit.
I was using this
But i think it may be better written something like this.
I know i have extra code on this one, i just wanted you to see the with worksheets part.
Any one know what i am doing wrong???
Thanks
I am trying to re-write my code better, rather than posting my entire code, I am adjusting what I know I can do.
I have just got stuck at this bit.
I was using this
Code:
Sheets("GET MEETING FROM RP").Select: Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False: Range("A1").Select
But i think it may be better written something like this.
Code:
With Worksheets("GET MEETING FROM RP")
.Pictures.Delete
.Columns("A:AA").Clear
IE1.ExecWB 17, 0: IE1.ExecWB 12, 2
Range("A1").PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False: Range("A1").Select
I know i have extra code on this one, i just wanted you to see the with worksheets part.
Any one know what i am doing wrong???
Thanks