TechWrangler

You are missing an EndIf statement.

hth,

Doug

"TechWrangler"
wrote in message
news:TechWrangler.27jrxn_1147190109.1293@excelforu m-nospam.com...

I am getting an error saying: "Compile Error Next without For" and it
highlights the line Next crpCount. Any ideas why?


Dim userTemplateRow As Long
Dim crpRow As Long
Dim pmaRow As Long
Dim pmaRanEnd As Integer
Set crpRange = Range("CustomerRelatedProcess")
Set pmaRange = Range("CRP01")
userTemplateRow = 14
crpRow = 2
pmaRow = 2
pmaRanEnd = 2

For crpCount = crpRow To crpRange.Rows.Count
For pmaCount = pmaRow To pmaRange.Rows.Count

Range(Cells(userTemplateRow, 2)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas,
Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
userTemplateRow = userTemplateRow + 1
Range(Cells(userTemplateRow, 2)).Select
Selection.EntireRow.Insert

Next pmaCount

pmaRow = pmaRange.Rows.Count + 1
If pmaRanEnd < 10 Then
pmaRange = Range("CRP0" & CStr(pmaRanEnd))
Else
pmaRange = Range("CRP" & CStr(pmaRanEnd))
pmaRanEnd = pmaRanEnd + 1

Next crpCount


--
TechWrangler


------------------------------------------------------------------------
TechWrangler's Profile:
http://www.excelforum.com/member.php...o&userid=34244
View this thread: http://www.excelforum.com/showthread...hreadid=540331