Thanks, It's kind of working, now it will work on column A and if the column header is IP. I've tried changing the Range, but I keep getting errors no matter how I change it , I need it to work on the entire document.

Also If i want to add another name which will work just add something after the IP? so for example
Set rngFound = Target.Parent.Rows(1).Find("IP","ID","NAME" , xlValues, xlWhole)