in4es asistencia informática respondió:
Facil. Usa un IF con un msgbox: Sub Borraregistro() ' ' Borraregistro Macro ' ' If (MsgBox("¿Seguro que desea borrar?", vbYesNo, "Confirmación") = vbYes) Then Rows("12:12").Select Selection.Delete Shift:=xlUp Range("C8").Select End If End Su...