Attribute VB_Name = "testcellrange3"
Sub ƒeƒXƒg()

    Dim range1 As Range

    Set range1 = Range("A1, C3:D5")
    range1.Value = 10

End Sub