Error saying "Next without For" but I have (I think) the proper # of each.

[greenmonster15]

This code is looping through a range and looking for any cells that contain hyperlinks and then doing some other stuff.

I keep getting the error "Next without For" when running my loop. You'd think this would be an easy error to find. Near the bottom of the code where is reads "Next TargetRow" is the line which the error is coming up on. Help! Does it have something to do with the data type I declared my variables and the values I assigned them maybe?

'Loop Through Range Looking For Part Hyperlinks    
    Dim StartRow As Long
    Dim EndRow As Long
    Dim StartCol As Long
    Dim EndCol As Long
    Dim TargetRow As Long
    Dim TargetCol As Long
    Dim HyperCell As Range
    
    
    StartRow = 20
    EndRow = 50
    StartCol = "E"
    EndCol = "J"
    HyperCell = "A100"
    
    Cells(StartRow, StartCol).Activate
    For TargetCol = StartCol To EndCol
        For TargetRow = StartRow To EndRow
            If ActiveCell.Hyperlinks.Count >= 1 Then
            HyperCell.Value = GetAddress(ActiveCell)
            
            strItem_Name = ActiveCell.Value
    
            '---------Now Finding First Blank Row in Main sheet for column = 1
            MainSheet.Activate
            Cells(1, 1).Activate
            Set Loc = Cells.Find("", ActiveCell, xlValues, xlWhole, xlByColumns)
            If Not (Loc Is Nothing) Then
                lngWriteRow = Loc.Row
            End If
            Cells(lngWriteRow, 1).Activate
            
            Cells(lngWriteRow, lngItem_Name).Value = strItem_Name
            Cells(lngWriteRow, lngItem_URL).Value = HyperCell.Value
        
            Else
        Next TargetRow
    Next TargetCol

 

[RoryA]

You are missing

End If

above the

Next TargetRow

line

 

[greenmonster15]

You are missing

End If

above the

Next TargetRow

line

LOL. Amazing!

One more thing. Can you look at the data types I choose for my variables and the values. Should they be something else?

 

[RoryA]

StartCol and EndCol should be String the way you are using them and your assignment of HyperCell is incorrect:

'Loop Through Range Looking For Part Hyperlinks
    Dim StartRow              As Long
    Dim EndRow                As Long
    Dim StartCol              As String
    Dim EndCol                As String
    Dim TargetRow             As Long
    Dim TargetCol             As Long
    Dim HyperCell             As Range




    StartRow = 20
    EndRow = 50
    StartCol = "E"
    EndCol = "J"
    Set HyperCell = Range("A100")


    Cells(StartRow, StartCol).Activate
    For TargetCol = StartCol To EndCol
        For TargetRow = StartRow To EndRow
            If ActiveCell.Hyperlinks.Count >= 1 Then
                HyperCell.Value = GetAddress(ActiveCell)


                strItem_Name = ActiveCell.Value


                '---------Now Finding First Blank Row in Main sheet for column = 1
                MainSheet.Activate
                Cells(1, 1).Activate
                Set Loc = Cells.Find("", ActiveCell, xlValues, xlWhole, xlByColumns)
                If Not (Loc Is Nothing) Then
                    lngWriteRow = Loc.Row
                End If
                Cells(lngWriteRow, 1).Activate


                Cells(lngWriteRow, lngItem_Name).Value = strItem_Name
                Cells(lngWriteRow, lngItem_URL).Value = HyperCell.Value


            End If
        Next TargetRow
    Next TargetCol

 

[greenmonster15]

StartCol and EndCol should be String the way you are using them and your assignment of HyperCell is incorrect:

'Loop Through Range Looking For Part Hyperlinks
    Dim StartRow              As Long
    Dim EndRow                As Long
    Dim StartCol              As String
    Dim EndCol                As String
    Dim TargetRow             As Long
    Dim TargetCol             As Long
    Dim HyperCell             As Range




    StartRow = 20
    EndRow = 50
    StartCol = "E"
    EndCol = "J"
    Set HyperCell = Range("A100")


    Cells(StartRow, StartCol).Activate
    For TargetCol = StartCol To EndCol
        For TargetRow = StartRow To EndRow
            If ActiveCell.Hyperlinks.Count >= 1 Then
                HyperCell.Value = GetAddress(ActiveCell)


                strItem_Name = ActiveCell.Value


                '---------Now Finding First Blank Row in Main sheet for column = 1
                MainSheet.Activate
                Cells(1, 1).Activate
                Set Loc = Cells.Find("", ActiveCell, xlValues, xlWhole, xlByColumns)
                If Not (Loc Is Nothing) Then
                    lngWriteRow = Loc.Row
                End If
                Cells(lngWriteRow, 1).Activate


                Cells(lngWriteRow, lngItem_Name).Value = strItem_Name
                Cells(lngWriteRow, lngItem_URL).Value = HyperCell.Value


            End If
        Next TargetRow
    Next TargetCol

Thanks for the help. This is my first language I've tried and I'm still in week 1. I knew something didn't look right about the data types!!