Fehler bei Set Range

Sub Nullwerte_löschen()
Dim rng As Range, Zelle As Range, i As Integer
Dim auswahl As String
auswahl = InputBox(prompt:=vbCr & vbCr & vbCr & vbCr & vbCr & "Hier die Spalte eingeben!",  _
Title:="Spalte?", xpos:="6250", ypos:="4200")
If auswahl = "" Then GoTo nix
Set rng = Range("A2:auswahl" & Range("A65536").End(xlUp).Row)
For Each Zelle In rng
If Zelle = 0 Then Zelle.ClearContents
Next
Range("A2:auswahl" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Cells.Delete
nix:
End Sub