Applies To
Range Object.
Description
True if all cells in the range contain formulas; False if no cell in the range contains a formula; Null otherwise. Read-only.
Example
This example prompts the user to select a range on Sheet1. If every cell in the selected range contains a formula, the example displays a message.
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