Copy and Paste Cell
 

Hi,

What about:
'----------------------------------------
Private Sub CommandButton1_Click()
Dim rw As Long
Dim rgO as range, rgD as range 'origin and dest ranges

rw = Range("T5").Value
set rgO= Worksheets("Adj. Savings").Range("B1")
set rgD = Worksheets("Savings History").Range("B" & rw)

rgO.Copy
rgD.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks :=False, Transpose:=False
' ...
End Sub
'-------------------------------------
--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Matto" wrote:

I get an error on this code when it trys to select the new cell reference,
can someone help me refer to the cell correctly? Thanks.



Private Sub CommandButton1_Click()
Dim rw As Long


rw = Range("T5").Value

Sheets("Adj. Savings").Select
Worksheets("Adj. Savings").Range("B1").Copy
Worksheets("Savings History").Range("B" & rw).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False