vba - 変数を使用してワークシートを暗くする

Question

= 変数として薄暗くしたいフォルダーの名前である 1 つのセルを含むシートがあります。私がやりたいのは、そのセルをファイル名変数に設定することです。おそらく私のコードを見る方が簡単でしょう。現在、「set Input 1」で「オブジェクトが必要です」というエラーが発生しており、変数を設定する方法もおそらく間違っています

Dim WbkA As Workbook
Dim Input1 as string

Set Input1 = Workbooks.Open(Filename:="G:\Reporting\ReportCompare.xls").worksheets("Sheet4").Range("A4").Value
Set wbkA = Workbooks.Open(FileName:"Input1")