VBA help find + delete

Try this

sub deleteit()

dim c
dim lastaddress

with sheets("MySheet").range("MyRange")

set c = .find.Find(What:="Internet", After:=LastAddress, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
lastaddress = c.address
if not c is nothing then
do
Rows(c.row).Select
Selection.Delete Shift:=xlUp

loop while not c is nothing and c.address <> lastaddress

else
end if

end sub

hope this helps

jacob

loop while not c is nothing and c.address <> lastaddress else end if

Jacob

Thanks for taht i have two errors
1) Set C ... debugs???
2) Requests end with???

Any ideas, looks great i would love to use the code
Cheers
Jack

I forgot the end with

put end with on a new line after the end if and before end sub

Later
Jacob

loop while not c is nothing and c.address <> lastaddress else end if

Jacob
debugs on this line Set c = .Find.Find(Wh
Any ideas, wont run this code ???
Any ideas
Cheers
Jack I forgot the end with put end with on a new line after the end if and before end sub

loop while not c is nothing and c.address <> lastaddress else end if

Looks like you should just have:

Set c = .Find(What:=etc etc...) Jacob loop while not c is nothing and c.address <> lastaddress else end if

Set c = .Find(What:=etc etc...) : Jacob loop while not c is nothing and c.address <> lastaddress else end if

Cheers for that, thats what i tried and debugs????
I have no ides why. i dont have VBA problems ebver before any other ideas, please try the code its above and ??? im lost ... would love to use it thou

Cheers again

Help me

hello sir
i need a help for to fix my vba error on microsoft word. the problem is : whenever i try to run the visual basic, the message box says: unable to crean an embedded object." it doesn't work. what should i download for to fix this message or this error. and also i cannot open the vba control toolbox and code . i don't see any of them.And if i double click on the form. it should take me to vbcode right. but it didn't. it didn't work. even if i click view menu and toolbox invisible.please sir, i have a project to deal with vba. please help me out. i will expect ur email very soon
thank u sir

Help me

hello sir
i need a help for to fix my vba error on microsoft word. the problem is : whenever i try to run the visual basic, the message box says: "unable to create an embedded object." it doesn't work. what should i download for to fix this message or this error. and also i cannot open the vba control toolbox and code . i don't see any of them.And if i double click on the form. it should take me to vbcode right. but it didn't. it didn't work. even if i click view menu and toolbox invisible.please sir, i have a project to deal with vba. please help me out. i will expect ur email very soon
thank u sir