Excel: macro de búsqueda

Hola buen día, tengo una macro de búsqueda donde en un "InputBox" ingreso el valor buscado, necesito que en lugar del "inputBox" el valor buscado sea el valor de una CELDA.
BUSCARDATO = InputBox("C.S. Y MES QUE DESEA EDITAR")
   
 If BUSCARDATO <> "" Then
Sheets("CONCENTRADO").Select
Range("A18").Select
Cells.Find(What:=BUSCARDATO, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
 xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
 False, SearchFormat:=False).Activate
Necesito que
BUSCARDATO = (valor de la celda)
De antemano Gracias