VBA converting accounts to numbers

[tanyaleblanc]

I'm trying to convert a column of accounts to numbers so that I can complete a Vlookup. I just want to convert them to numbers

Sub Budget_EC()



Dim lRow As Long
Dim lastrow As Long
Dim rng As Range
Dim fd As Office.FileDialog


Set fd = Application.FileDialog(msoFileDialogFilePicker)


lRow = ActiveSheet.Range("A3000").End(xlUp).Row
If AutoFilterMode = True And FilterMode = True Then ActiveSheet.ShowAllData
lRow = ActiveSheet.Range("A3000").End(xlUp).Row


Windows("Budget Query April EC.xlsx").Activate
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("Raw Data").Select
    Range("A2:A" & lRow).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("A" & lrownew).PasteSpecial Paste:=xlPasteValuesnumber

 

[Joe4]

Just do a Text to Columns on that column, and that should convert them to numbers.
You can use the Macro Recorder to get the VBA code for that.

 

[tanyaleblanc]

worked perfect, thank you

 

[Joe4]

You are welcome.