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