Foro Excel

Hola a todos
quien puede ayudarme esta vez?
Tengo en mi tabla un ListBox1 y deseo que al hace click me inserte una nueva fia.
Lo he intentado de esta manera, pero no me funciona :

Private Sub ListBox1_Click()
Sheets("Buchungs").Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.EntireRow.Insert
End Sub

Que hago mal?
Gracias anticipadas
Saludos

Los cambios que hice a tu código son solamente formales. Básicamente con tu código tambien deberí­a funcionar.

bueno aunque Gali ya te rteolvio el asunto =)
lo unico que puedo agregar [algo tambien ya dicho por Gali] es que a veces es bueno acordarse de la señora llamada "Doña grabadora de macros",con la cual se puede obtener algo como esto:

Rows("3:3").Select
Selection.Insert Shift:=xlDown

salu2

Hola Gali
Gracas por contestar.
Creo que ya encontré el problema.
Resulta que tengo otra tabla en la cual tengo esta Macro par insertar filas

Sub Basis_Zeile_einfí¼gen()
On Error Resume Next
Sheets("Basis").Unprotect
Selection.EntireRow.Insert
Sheets("Basis").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

y cuando actuaba esta Macro me daba el error en el ListBox.

Ahora para elListBox tengo lo siguiete:

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
Sheets("Buchungs").Unprotect
Sheets("Buchungs").Range("A65536").End(xlUp).Offset(1, 0).EntireRow.Insert
Sheets("Buchungs").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

de momento no me dá error, pero puedes decirme si está bien asin.

Otra pregunta si me lo permites.
Como puedo hacer para que el ListBox, quede siempre con la misma medida,?
de momento siempre cambia cada vez que incluyo una linea en la otra tabla.

Nuevamente agradezco que me allas contestado
Gracias
Saludos