Zellen löschen

erhalte bei unten stehendem Code in der 2 Zeile Fehlermeldung:
Anwendungs- oder objektdefinierter Fehler

Es sollen, wenn die gefundene Zelle DG5 ist, die Zellen DG5:DL7 gelöscht werden. Wo liegt mein Fehler ?

Private Sub CommandButton4_Click()
Set rng2 = Worksheets("Werte").Columns(111).Find(ComboBox1.Value, lookat:=xlWhole, LookIn:=xlValues)
Worksheets("Werte").Range("Cells(rng2.Row,111):(Cells(rng2.Row + 2, 116)").Delete Shift:=xlUp
End Sub