You left out an equal sign.

I'd use:


aWS.Range("A22").formula _
= ]Sheet1'!$B$" & aWS.Range("A20").Value

Or maybe...

with aws.range("a22")
.numberformat = "General"
.formula = _
= ]Sheet1'!$B$" & aWS.Range("A20").Value
end with

(just in case A22 was formatted as Text.)

ps. I wouldn't use an address as the name of the macro, either.

pls123 wrote:

hi all i have to fill cell A20 with ]Sheet1'!$B$999
where 999 is the value of cell A20.
if u can describe the right syntax, that will help me a lot !! ty


Sub A22()
Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("Sheet1")

aWS.Range("A22") = ]Sheet1'!$B$" &
aWS.Range("A20").Value
End Sub

--

Dave Peterson