Excel VisualBasic Script

Sub Strtype()
    Dim myHeading As String
    myHeading = "asdf"
    Cells(1, "D").Value = myHeading
End Sub