Boa noite!!
Segue outro exemplo
Dê retorno
Sub Click_na_Mãozinha()
Dim iRet As Integer
Dim strPrompt As String
Dim strTitle As String
strPrompt = "Quer deletar a linha, OK?"
strTitle = "Deletando Linha"
iRet = MsgBox(strPrompt, vbYesNo, strTitle)
If iRet = vbNo Then
Exit Sub
Else
ActiveCell.EntireRow.Delete
End If
End Sub
At++++
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/03/2012 4:22 pm