Sortieren per Makro scheitert - Laufzeitfehler 1004

[snb]

evident:

Code:

Sub M_snb()
  with sheets("Fehlerbericht")
   .ListObjects(1).Range.Sort .cells(3,1)
  end with
End Sub

Code:

Sub M_snb()
  sheets(1).ListObjects(1).Range.Sort sheets(1).cells(3,1)
End Sub