Ok last question (on this project).

I need to look at values in row 1 (in an open but non-activated workbook)
until I find the word Total (its column letter will change depending on other
info, for example it may be H one week then M another).

Then I need to figure out which column that is.

Then I need to copy a particular cell in that column (that row number will
never change), to a cell on my currently open workbook.

Thanks

Kevin Porter

Kevin, try using the "Find" Method:
Dim ColToFind As Long
'This assumes row 4, replace with your row number:
With Rows(4)
ColToFind = .Find(What:="Total", After:=.Cells(.Columns.Count), _
SearchOrder:=xlbyRows).Column
End With
Cells(YourConstantRow,ColToFind).Copy
--
Charles Chickering

"A good example is twice the value of good advice."


"Kevin Porter" wrote:

Ok last question (on this project).

I need to look at values in row 1 (in an open but non-activated workbook)
until I find the word Total (its column letter will change depending on other
info, for example it may be H one week then M another).

Then I need to figure out which column that is.

Then I need to copy a particular cell in that column (that row number will
never change), to a cell on my currently open workbook.

Thanks

Kevin Porter

Works great. Thank you.

"Charles Chickering" wrote:

Kevin, try using the "Find" Method:
Dim ColToFind As Long
'This assumes row 4, replace with your row number:
With Rows(4)
ColToFind = .Find(What:="Total", After:=.Cells(.Columns.Count), _
SearchOrder:=xlbyRows).Column
End With
Cells(YourConstantRow,ColToFind).Copy
--
Charles Chickering

"A good example is twice the value of good advice."


"Kevin Porter" wrote:

Ok last question (on this project).

I need to look at values in row 1 (in an open but non-activated workbook)
until I find the word Total (its column letter will change depending on other
info, for example it may be H one week then M another).

Then I need to figure out which column that is.

Then I need to copy a particular cell in that column (that row number will
never change), to a cell on my currently open workbook.

Thanks

Kevin Porter