Sub ObjectVariable() Dim Rng As Range Set Rng = ThisWorkbook.Worksheets("Sheet1").Range("C10") Rng.Value = InputBox("Enter Sales for January") Rng.Offset(-1, 0).Value = "January Sales" End Sub