viomman
03-04-2009, 09:23 AM
I have anothre problem now I am getting a for without next error in my code does any one have an idea why. I am sure like the last problem it is a easy fix but I am just not seeing it
here is the code
RngRow25.Select
For Each RngRow25 In RFound25
If RFound25.Value = YrVal Then
With RFound25
ActiveCell.Select
.Offset(1, 1).Select
CPRange26.Copy
ActiveCell.PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End With
Next RngRow25
RngRow27.Select
For Each RngRow27 In RFound27
If RFound25.Value = YrVal Then
With RFound27
ActiveCell.Select
.Offset(1, 1).Select
CPRange28.Copy
ActiveCell.PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End With
Next RngRow27
here is the code
RngRow25.Select
For Each RngRow25 In RFound25
If RFound25.Value = YrVal Then
With RFound25
ActiveCell.Select
.Offset(1, 1).Select
CPRange26.Copy
ActiveCell.PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End With
Next RngRow25
RngRow27.Select
For Each RngRow27 In RFound27
If RFound25.Value = YrVal Then
With RFound27
ActiveCell.Select
.Offset(1, 1).Select
CPRange28.Copy
ActiveCell.PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End With
Next RngRow27