Unable to get the select property of the Range Class error

[mar050703]

Hi All

I have the following code:

Private Sub CmdOk_Click()
Dim LastDeal As Integer
          LastDeal = Sheets("Data").Range("A1").End(xlDown).Select

but I keep getting the error "Unable to get the select property of the Range Class."

I am needing to reference the last used cell in RowA as LastDeal, as later in the code I have the following:

Response = MsgBox("Do you want to print the Deal Sheet?", vbYesNo, "Print")
    Select Case Response
        Case vbYes
        Sheets("Deal Sheet").Select
        Range("E2").Select
        ActiveCell.Value = LastDeal 'Enter the LastDeal Number in cell E2 of the Deal Sheet
        ActiveWindow.SelectedSheets.PrintOut 1, 1, copies:=1
            Case vbNo
                MsgBox "You will need to print out the Deal Sheet for:" & LastDeal, vbExclamation, Warning
    End Select

Thanks in advance

 

[SkipVought]

If you need to REFERENCE the last cell, then why are you using the SELECT method!

CODE
Private Sub CmdOk_Click()
Dim LastDeal As Integer
          LastDeal = Sheets("Data").Range("A1").End(xlDown).[b]Value[/b]

 

[mar050703]

Skip

I did try that, before, but I did not get the correct answer. However I have discovered the problem. I was working out the last cell with data before I was transferring the new data, and therefore I was returning the data of the previous entry.

I have now changed it back to .value, rather than .select.

Thanks