vba wert aus zelle lesen

Sub Abfragen_tauschen()
'Const A_Arbeitstage As String = "Arbeitstage"
'*obige Konstante funktioniert
Const A_Arbeitstage As String A_Arbeitstage = Workbooks("Niederlassung_Entwurf_V14"). _
Einstellungen.Range("C50").Value
'*An dieser Stelle bekomme ich eine Fehlermeldung: Syntaxfehler! Was ist jetzt anders?
Sheets("Arbeitstage").Select
Range("F8").Select
With Selection.QueryTable
.Connection = Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=T:
'*den Mittelteil habe ich jetzt mal rausgenommen
.CommandType = xlCmdTable
.CommandText = Array(A_Arbeitstage)
'Diesem Array will ich den Wert (Text) von A_Arbeitstage übergeben.
.Refresh BackgroundQuery:=False
End With
End Sub