Union non-contiguous range

Folks,

What I am trying to do here is first to get the left 10 char of range("a1") 11/01/2012 01. Then union it with data in column c. This code below not working, returns error "object required". I am guessing union needs the input to be a range?

Any ideas?

Sub retesting()

check = (Left(Range("a1"), 10))


Union(check, Range("g1").Resize(24)).Select

End Sub

Need the left 10 characters of the value in range a1(11/01/2012), and copy both the left 10 characters and the data in column c. I dont want to create an intermediate cell for 11/01/2012.