Necesito obtener los encabezados de una columna y una fila a partir de una celda en un rango en código VBA

Estoy haciendo un código que me haga una búsqueda de un dato en un rango de celdas y lo ubique en otra hoja buscando el encabezado de la fila y de la columna, necesito obtener el valor del encabezado de la columna y de la fila para hacer la búsqueda en la otra hoja, ¿alguien sabe como hacerlo?