Is Occuring on last line BEFORE End Sub (below):

Sub Foo()
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim FindDate As Range
Set FindDate = Sheets("Report").Range("D4")
With Sheets("MyHistory").Range("A:A")
Set x = .Find(What:=FindDate)
End With
Set Rng1 = Sheets("Report").Range("D14")
Set Rng2 = Sheets("Report").Range("A13")
Set Rng3 = Sheets("Report").Range("B1:B4")
Rng1.Copy x.Offset(, 1)
Rng2.Copy x.Offset(, 2)
Rng3.Copy x.Offset(, 3).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
End Sub

Rng3.Copy
' on the next line
x.Offset(, 3).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True

might be an idea to test
if not x is nothing then ' etc

Regards,
Peter T



"JMay" wrote in message
...
Is Occuring on last line BEFORE End Sub (below):

Sub Foo()
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim FindDate As Range
Set FindDate = Sheets("Report").Range("D4")
With Sheets("MyHistory").Range("A:A")
Set x = .Find(What:=FindDate)
End With
Set Rng1 = Sheets("Report").Range("D14")
Set Rng2 = Sheets("Report").Range("A13")
Set Rng3 = Sheets("Report").Range("B1:B4")
Rng1.Copy x.Offset(, 1)
Rng2.Copy x.Offset(, 2)
Rng3.Copy x.Offset(, 3).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=True
End Sub

That did it;
pretty simple fix, huh?
shame on me !!


Thanks -- Jim

"Peter T" wrote:

Rng3.Copy
' on the next line
x.Offset(, 3).PasteSpecial Paste:=xlPasteAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True

might be an idea to test
if not x is nothing then ' etc

Regards,
Peter T



"JMay" wrote in message
...
Is Occuring on last line BEFORE End Sub (below):

Sub Foo()
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim FindDate As Range
Set FindDate = Sheets("Report").Range("D4")
With Sheets("MyHistory").Range("A:A")
Set x = .Find(What:=FindDate)
End With
Set Rng1 = Sheets("Report").Range("D14")
Set Rng2 = Sheets("Report").Range("A13")
Set Rng3 = Sheets("Report").Range("B1:B4")
Rng1.Copy x.Offset(, 1)
Rng2.Copy x.Offset(, 2)
Rng3.Copy x.Offset(, 3).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=True
End Sub