数式が入力されているセル範囲を取得

Option Explicit
Sub A_Sample011()
Dim myRng1 As Range
Dim myRng2 As Range
Set myRng1 = Range(“A1:C30”)                        ‘任意のセル範囲
‘準備ここまで
On Error Resume Next
Set myRng2 = myRng1.SpecialCells _
(Type:=xlCellTypeFormulas, Value:=xlTextValues)
On Error GoTo 0
If myRng2 Is Nothing Then
MsgBox “対象セルはありません”
Else
MsgBox myRng2.Address
End If
Set myRng1 = Nothing                                ‘オブジェクトの解放
Set myRng2 = Nothing
End Sub