finding column

[Squirrel-Salad]

Gooday all,

I currently have some names in various columns but on the same same row. I
have at the moment been able to search for a name in the column. But as I
dont know the actual cell how can I find the cell name?

example names are in D12, E12 .... P12 they are all on row 12 but I dont
know the column. the search looks at each column untill it finds a match,
if it gets to an empty cell on row 12 the search ends, if it find the cell
I need to delete the column. Taking into acount that P12 may go as far as
FF12!! I dont actualy know.

Does this make sense?

 

[Gary''s Student]

Use the MATCH() function:

If cell F1 contains:
James
then the formula:
=MATCH("James",1:1) will return 6 (which is column F)

 

[Roger Govier]

Hi

Try the following

Sub findDelete()
Dim c As String
Dim Rng As Range
c = InputBox("Enter string to delete.")
Set Rng = Nothing
Set Rng = Range("12:12").Find(what:=c, _
After:=Range("C12"), _
LookIn:=xlFormulas, _
lookat:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False)
Rng.EntireColumn.Delete shift:=xlLeft
End Sub