In diesem Beispiel wird der Benutzer aufgefordert, einen Bereich in Sheet1 auszuwählen. Wenn alle Zellen in diesem Bereich eine Formel enthalten, wird eine Meldung angezeigt.
Worksheets("Sheet1").Activate
Set rr = Application.InputBox( _
prompt:="Select a range on this worksheet", _
Type:=8)
If rr.HasFormula = True Then
MsgBox "Every cell in the selection contains a formula"
End If