Define a string type variable and set to Cell(1,D)
Sub Strtype() Dim myHeading As String myHeading = "asdf" Cells(1, "D").Value = myHeading End Sub