Hola
Eso lo puedes definir en el método find. Copio y Pego la ayuda.
Cita: expresión.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
expresión Requerida. Expresión que devuelve un objeto Range .
What Variant requerida. La información que se busca. Puede ser una cadena de caracteres o cualquier tipo de datos de Microsoft Excel.
After Variant opcional. La celda después de la cual se desea buscar. Corresponde a la posición de la celda activa cuando se lleva a cabo una búsqueda desde la interfaz del usuario. Tenga en cuenta que After debe ser una sola celda del rango. Recuerde que la búsqueda empieza después de esta celda; no se buscará en la celda hasta que el método regrese a ella. Si no se especifica este argumento, la búsqueda se iniciará después de la celda de la esquina superior izquierda del rango.
LookIn Variant opcional. Tipo de información.
LookAt Variant opcional. Puede ser una de las siguientes constantes XlLookAt: xlWhole o xlPart.
SearchOrder Variant opcional. Puede ser una de las siguientes constantes XlSearchOrder: xlByRows o xlByColumns.
SearchDirection XlSearchDirection opcional. Dirección de la búsqueda.
XlSearchDirection puede ser una de estas constantes XlSearchDirection.
xlNext valor predeterminado
xlPrevious
MatchCase Variant opcional. True para que la búsqueda distinga entre mayúsculas y minúsculas. El valor predeterminado es False.
MatchByte Variant opcional. Se emplea únicamente en la versión para Lejano Oriente de Microsoft Excel. True para que los caracteres de dos bytes sólo coincidan con caracteres de dos bytes. False para que dichos caracteres coincidan con sus equivalentes de un solo byte.
SearchFormat Variant opcional. Formato de la búsqueda.
Y te pongo un ejemplo de código (sacado de la opción grabar macro)
Código:
Cells.Find(What:="66", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Si te fijas, en el código SearchOrder pone que busque por filas (xlByRows) también lo puedes poner por columnas (xlByColumns).
Agur.