How can write this as workbook function ???

("Sheet1 ").Range("D" &
aWS.Range("A16").Value & "").Value

it would be something like this
]Sheet1'!$D$ ^^^thisworkbook.A16.value^^^

and how would it be inside an IF function , requiring that value = zero (for
example!)

tx if can help me about
paolo