VBAで入力規則の設定がうまくいきません　どなたかご教示ください。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim A As String
If Target.Column = 3 And Target.Row >= 77 And Target.Row <= 65536 Then
If Target.Value <> "" Then
Worksheets("Sheet2").Range("A1:Z5").Copy _
Destination:=Target.Offset(5, -1)
For i = 5 To 9
For k = 5 To 23 Step 2
A = "=INDIRECT(" & Target.Offset(0, 3).Address & ")"
Target.Offset(i, k).Validation.Delete
Target.Offset(i, k).Validation.Add Type:=xlValidateList, Formula1:=A
Next
Next
End If
End If
End Sub
「実行時エラー '1004' : アプリケーションの定義またはオブジェクト定義のエラー」が出てしまします。
A = "=INDIRECT(" & Target.Offset(0, 3).Address & ")"
Target.Offset(i, k).Validation.Delete
Target.Offset(i, k).Validation.Add Type:=xlValidateList, Formula1:=A

"=INDIRECT(""" & Target.Offset(0, 3).Address & """)"こうすることや"INDIRECT(" & Target.Offset(0, 3).Address & ")"こうするとエラーは発生しません。これはバグなのでしょうか？
上記だとリストに値がうまく設定されません。

このプログラムの意味ですが・・・
ttp://??www.relief.jp/itnote/archives/000822.php??
こちらにあるような物を参考にしています。
ドロップダウンリストを連動させて使いたいのです。

文字列中の連続する " ２つは、１つの " に置き換えられます。

"文字"test"文字"

のような場合、

文字"test"文字

を意図して書いているのですが、
最初の "文字" の部分で文字列は終わり、そのあと文法に合わないデタラメを書いていると判断されます。
このような場合には、

"文字""test""文字"

とすることで、"" が " として文字列中に埋め込みできるので意図した文字列とすることができます。
質問のプログラムでは、
INDIRECT("$B$3")
のような文字列を作りたいので、
文字列中の " を表すために "" を含める必要があります。