Thanks for replying.
This doesn't do what I was hoping for however, the following does so have managed to get around the issue:
Quote:
|
LastColumn = Cells.Find(What:="", After:=ActiveCell.Offset(, 13), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Select
|
Activecell.Offset (,13) - Active cell is the lookup value found in col "A" and the Offset part moves the start of the search area 13 columns away from the active cell; What:="" is searching for the first blank cell after col 13.