Hi. I'm having a problem with pasting a range of cells from one sheet to another. I'm trying every variation that I can think of and nothing works. The whole sub works perfectly except the paste at the very end of the sub. Here's the code. Appreciate any help You can give me....Paste Method of Worksheet Class Failed.
Thanks so much
JimmyB
Code
Sub RecipeMoveToEdit()
Dim Strt
Dim TopLft
Dim BotRt
Dim LftLstT
Dim LftLstB
Dim Gree
Dim GrLin
Dim SndTo
Dim SndRng
Sheets("Recipies Data").Activate
Set Strt = ActiveCell
Set TopLft = Strt.Offset(-12, 0)
MsgBox TopLft.Address
Set BotRt = Strt.Offset(0, 11)
MsgBox BotRt.Address
Set LftLstT = TopLft.Offset(0, -1)
Set LftLstB = Strt.Offset(0, -1)
Set Gree = Strt.Offset(1, 0)
Set SndRng = Range(TopLft.Address, BotRt.Address)
Range(LftLstT, LftLstB).ClearContents
GrLin = Gree.Row
ActiveSheet.Rows(GrLin).Delete Shift:=xlUp
Range(TopLft.Address, BotRt.Address).Cut
Sheets("VALUES for MEALS").Activate
Set SndTo = ThisWorkbook.Sheets("VALUES for MEALS").Range("N4")
Range(SndTo.Address).Select
MsgBox SndTo.Address
With Range(SndTo.Address)
ActiveSheet.Paste
End With
End Sub
Display More