如何在VBA中引用字符串中的单元格值？

Dim cellAddress As String
Dim cellValue As Variant

cellAddress = "A1"
cellValue = Range(cellAddress).Value

Dim rowNumber As Integer
Dim columnNumber As Integer
Dim cellValue As Variant

rowNumber = 1
columnNumber = 1
cellValue = Cells(rowNumber, columnNumber).Value

Dim cellAddress As String
Dim cellValue As Variant

cellAddress = "'Sheet1'!A1"
cellValue = Evaluate(cellAddress)