How to stop macro when reached a named cell?

[Ingemar]

Hello everybody,

I have tried to write a macro checking if cells are empty or not between the named cells "First_sample" and "Last_sample". I start checking the cell below "First_sample" and I want the macro to run until reaching the cell named "Last_sample". The loop works fine first time but second time I get the error message Run-time error '1004': Application defined or object defined error. The code is as below. I am greatful for any help or suggestion.

Kind regards

Ingemar

Sub Macro1()

Worksheets("Analysis sheet").Range("First_sample").Offset(1, 0).Select

Do
On Error GoTo Section2
If ActiveCell.Name.Name = "Last_sample" Then
Exit Sub
End If

Section2:

If IsEmpty(ActiveCell) Then
Selection.Offset(1).Select

Else

'Macro process to be done
End If

Loop

End Sub

 

[Fluff]

What do you want to do if the are blank cells in the range?

 

[Norie]

Why not loop through the entire range like this?

For Each cel In Worksheets("Analysis sheet.Range("First_sample, Last_Sample").Cells

Next cel

 

[Ingemar]

Hello Fluff, If a cell is empty, then the macro will select next cell below. Code:
If IsEmpty(ActiveCell) Then
Selection.Offset(1).Select

 

[Fluff]

Are you simply trying to find the first blank cell in that range?
If so what should happen if there are no blank cells?

 

[Ingemar]

Hi again, No, the question is not to find first blank cell. The macro shall check cells, disregard them by selecting next cell below. If cell is not empty, the macro shall do a process, but this is not my question. The question is how to stop the macro when reaching the cell named "Last_sample". I have tried the code below. It works the first loop but not the second loop.
Sub Macro1()
'
'

Worksheets("Analysis sheet").Range("First_sample").Offset(1, 0).Select


Do
On Error GoTo Section2
If ActiveCell.Name.Name = "Last_sample" Then
Exit Sub
End If

Section2:

If IsEmpty(ActiveCell) Then
Selection.Offset(1).Select

Else

'Macro process to be done
End If

Loop

End Sub

 

[Fluff]

In that case try

Sub Ingemar()
    Dim Cl As Range
    
    With Range("first_sample", "last_sample")
        For Each Cl In .Offset(1).Resize(.Count - 2)
            If Cl.Value <> "" Then
                'do something
            End If
        Next Cl
    End With
End Sub

 

[Ingemar]

Hello Fluff, Thank you VERY much. It works great.

 

[Fluff]

You're welcome & thanks for the feedback