Encontrar un valor y remplazar otro en misma fila

hola, Roberto !

... Libro con 2 hojas, una de ellas es el formato/machote y en otra hoja esta la base de datos
... desde un boton con un Text Box, quiero encontrar p/e: el numero de Ck: 30 (columna A Base Datos)
cuando lo encuentre en esa fila, en la columna G, que se escriba Anulado. Espero haber sido claro [...]

si suponemos que existe un control de cuadro de textos [p.e. en un formulario] llamado TextBox1
[donde se escribe el Ck: 30 a buscar/encontrar/...]
y que la hoja donde esta la base de datos se llama 'base de datos'
prueba con las siguientes opciones/variantes/... [segun donde esten y el tipo de los controles de texto y boton]...

Worksheets("base de datos").Columns("a:a").Find(TextBox1, Range("a1")).Offset(, 6) = "Anulado"

o la siguiene version usando una 'notacion abreviada' [en la referencia a los rangos]...

Worksheets("base de datos").[a:a].Find(TextBox1, [a1]).Offset(, 6) = "Anulado"

o la siguiente version [similar] PERO... suponiendo que el nombre de la base de datos NO contiene espacios [p.e. hoja1]

[Hoja1].[a:a].Find(TextBox1, [a1]).Offset(, 6) = "Anulado"

[ademas] se supone/espera/... que el dato a buscar/encontrar/... SI estara 'presente' en la columna 'A' -?-
[de lo contrario]... o habra que preparar alguna deteccion de -posibles- errores ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.