Despues de buscar esta es la solución: Credito a Luis Mondelo. Sub CommandButton11_Click() 'POR MONDELO LUIS dato = Range("C5").Value contarsi = Application.WorksheetFunction.CountIf(Columns(1), dato) If contarsi > 0 Then 'si es que ya hay un dato...