文字列が入力されているセル範囲を取得する

Option Explicit
Sub A_Sample014()
Dim myRng1 As Range
Dim myRng2 As Range
Set myRng1 = Range(“A1:C30”)                ‘任意のセル範囲
‘準備ここまで
On Error Resume Next
Set myRng2 = myRng1.SpecialCells _
(Type:=xlCellTypeConstants, 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