Não sei programar em VBA apesar de ter alguma noção do que se trata.
Peguei o código abaixo em algum site em inglês e adaptei os textos para o português:
Código: Selecionar todos
Sub Limpar_valores_e_fórmulas()
Dim RangeToClear As Range
Set RangeToClear = Application.InputBox("Selecione as células que deseja limpar", Type:=8)
userInput = MsgBox("Confirma a exclusão? Esta operação não poderá ser desfeita!", vbYesNo)
If userInput = vbYes Then
RangeToClear.ClearContents
Else
MsgBox ("Desmarcando as células selecionadas para exclusão.")
End If
End Sub
As demais opções do código estão funcionando perfeitamente, exceto o botão 'Cancelar' inicial."Erro em tempo de execução '424':
O objeto é obrigatório"
Como faço para quando clicar em cancelar simplesmente fechar a caixa sem aparecer nenhuma mensagem ou esta mensagem de erro?
Obrigado desde já.
Abraços,
João