Sub varSun() Dim varMyData As Variant varMyData = "This is a Variant" Debug.Print varMyData varMyData = 12 Debug.Print varMyData End Sub