search function but how do i make it select the entire row

Hi,

I've made the following search script to search for the job no you input but atm it just selects the cell but i want to be able to select the entire row that the number is in and copy it to another sheet.

Sub FindTheNo()
Dim JobNoToFind


JobNoToFind = InputBox("Please enter the value to search for")
If JobNoToFind = "" Then Exit Sub
Sheets("Core").Select
Cells.find(What:=JobNoToFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

' I don't know how to make it select the row the cell is in from column A to G'
ActiveRow.Copy




Sheets("CM").Select
Cells(13, 2).Select
ActiveSheet.Paste

End Sub

Hi,

I've solved my own problem, the script is below if anyone is interested.

Sub FindTheNo()
Dim JobNoToFind


JobNoToFind = InputBox("Please enter the value to search for")
If JobNoToFind = "" Then Exit Sub
Sheets("Core").Select
Cells.find(What:=JobNoToFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveSheet.Rows(ActiveCell.Row).EntireRow.Select
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Copy

Sheets("CM").Select
Cells(48, 1).Select
ActiveSheet.Paste

End Sub