Hi Bob me again i dont mean to be thick but would i have to do that for every
wk no or as there are 52 rows of financial information i just wanted 1 button
say on the sheet to cover all of them depending on what was selected
--
BD3


"Bob Phillips" wrote:

Mine does that, they just select the cell not input the week number. Add it
to a macro in a standard code module, and maybe create a button to assign
the macro to.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Hi Bob
i dont think i explained properly once ive selected the cell in
column A and inputed the wk no into the messagebox and clicked okay i want
7
cells from the row i selected ie wk10 to automatically be copied and
pasted
to a different open workbook , but i need it to work if any of the weeks
are
selected does that make sense, if your code does that where would i insert
it.
--
BD3


"Bob Phillips" wrote:


Dim oCell As Range

On Error Resume Next
Set oCell = Application.InputBox("Select a cell with the mouse",
Type:=8)
On Error GoTo 0
If Not oCell Is Nothing Then
oCell.Resize(7).Copy Range("G7")
'Workbooks("otherwb.xls").Worksheets("Sheet1").Ran ge("A1")
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"bigdaddy3" wrote in message
...
Using input from user to select from wk 1 to wk 52 in column A then
when
selected copy and paste 7 cells from the row that you have selected to
another open workbook
--
BD3