Format column to text

Hi rpinxt,

try this:

Sub ConvertToText()
    Dim Rng As Range, c As Range
    With Sheet1
        Set Rng = .Columns(5).SpecialCells(xlCellTypeConstants, xlNumbers)
        For Each c In Rng
            If Not IsDate(c) Then
                c.Value = "'" & c.Value
            End If
        Next c
    End With
End Sub

Well MarvinP I have 2 data sources and in 1 source the number to be lookedup are in number format and in the other in text format.
Easiest fix would be to convert the number source to a text source in order for the vlookup to work.
Thanks for the link...I will study them