Dante Amor respondió:
Prueba lo siguiente: Private Sub CommandButton1_Click() Dim sh As Worksheet Dim f As Range With nombcof If .Value = "" Then MsgBox "Captura un nombre" .SetFocus Exit Sub End If Set sh = Sheets("INFO") Set f = sh.Range("B3:B100").Find(.Value, ,...