入力ボックスで処理範囲を指定

Sub Macro0432()
Dim c As Range
Set c = Application.InputBox(Prompt:=”セル範囲を指定してください”, _
Type:=8)
c.Interior.Color = vbYellow
End Sub