need help in macro to select a column

[joedhk]

Hi.I am trying to insert excel data into PDF documents.in this is part of code I need help

Dim vClient As Variant

vClient = Range(Selection.Row & ":" & Selection.Row)

sFileFields = Replace(sFileFields, "---NAME1---", vClient(1, 2))
sFileFields = Replace(sFileFields, "---NAME2---", vClient(1, 3))
sFileFields = Replace(sFileFields, "---NAME3---", vClient(1, 4))

This code works for selection row but when i change it to
vClient = Range(Selection.column & ":" & Selection.column)

The code doesn't choose selected column. I want to select selection column just like row in upper code.