Excel erro em tempo de execução '94"' uso de 'null" inválido

[RaquelNovell]

Sub Editar()

Dim tabela As ListObject
Dim n As Integer
Set tabela = Planilha1.ListObjects(1)

n = UserForm1.ListBox1.Value             <     O ERRO ESTÁ DANDO AQUI

End Sub

[AfonsoMira]

Boas @RaquelNovell ,

Então uma variável do Tipo Integer (Inteira) não pode ter o valor NULL (Nulo)

[Midori]

@RaquelNovell Se está tentando atribuir o valor sem selecionar nada na lista vai acontecer esse erro. Você pode fazer um teste antes de artibuir o valor, p.ex,

 

If IsNull(UserForm1.ListBox1.Value) Then
    MsgBox "Selecione um item"
Else
    n = UserForm1.ListBox1.Value
End If