using find in code

[Maxjohnson]

I have a database set up on worksheet "Agents". In this database column A is Agent Name, Coulnm B is id number, column C is commission, etc. The following code will find the name in column A (name only appears once in column A).

Please Login or Register  to view this content.

I have two questions:

1. What code would substitute the name found on sheet "data", Range("G6") for name in the code above?

2. What code would delete the entire row that the name is found in under column A?

Thanks for any help

Max

[T-J]

1. Set rngFound = .Find(Sheets("data").Range("G6"), lookat:=xlWhole)
2. rngFound.EntireRow.Delete

I'd also use an If statement to check if a match is found.

[Maxjohnson]

Thanks T-J! That did it. I had tried every version of adding additional commas, but it never occurred to me to delete the two commas around name.


Thanks