Simple Fix - Populate cell with value from specific worksheet

[albytross]

Hi all,

I have this code which almost does exactly what I need it to.
Instead of populating cells with the word Test, how could i make it populate cells with the exact value on worksheet ABC, cell A2?

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long

    Set ws = ThisWorkbook.Sheets("XYZ")

    With ws
        lRow = .Range("C" & .Rows.Count).End(xlUp).Row

        .Range("B2:B" & lRow).Formula = "=If(C2<>"""",""Test"","""")"
        .Range("B2:B" & lRow).Value = .Range("B2:B" & lRow).Value
    End With
End Sub

 

[albytross]

as simple as an equals sign

""=ABC!A2""

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long

    Set ws = ThisWorkbook.Sheets("XYZ")

    With ws
        lRow = .Range("C" & .Rows.Count).End(xlUp).Row

        .Range("B2:B" & lRow).Formula = "=If(C2<>"""",""=ABC!A2"","""")"
        .Range("B2:B" & lRow).Value = .Range("B2:B" & lRow).Value
    End With
End Sub