If you only want to prompt the user to enter a number

Dim num1 as Variant, num2 as Variant
num1 = InputBox("Enter the row number to copy")
num2 = InputBox("Enter the destination row")
if isnumeric(num1) and isnumeric(num2) then
Worksheets("Sheet1").Rows(num1).copy _
Destination:=Worksheets('Sheet2').rows(num2)
end if

--
Regards,
Tom Ogilvy


"nowfal" wrote in
message ...

HI,
Both of you, Mr.Ron and Mr.Tom both of the codes are working well. But
i am disturbing you again . If you help me again i am very thankful.
what i needed is in the in the input box i want a selection not by the
mouse but by specifying the row.
i mean like row 3 of first sheet to row 5 of next sheet
many thanks
with regards
nowfal


--
nowfal
------------------------------------------------------------------------
nowfal's Profile:
http://www.excelforum.com/member.php...o&userid=10003
View this thread: http://www.excelforum.com/showthread...hreadid=386219