How do I get the macro to end itself once all the data has been taken
elsewhere?

If IsEmpty("Q2") Then Exit Sub?
Else 'do nothing - it's still got data I want it to continue the macro
End If? 'here there is an error message of "End If without Block If"

How about trying:

If Range("Q2").value = "" then Exit Sub
--
Kevin Backmann


"Rokuro kubi" wrote:

How do I get the macro to end itself once all the data has been taken
elsewhere?

If IsEmpty("Q2") Then Exit Sub?
Else 'do nothing - it's still got data I want it to continue the macro
End If? 'here there is an error message of "End If without Block If"

Sub Macro1()
If IsEmpty(Range("Q2").Value) Then
Exit Sub
End If
End Sub
--
Gary''s Student


"Rokuro kubi" wrote:

How do I get the macro to end itself once all the data has been taken
elsewhere?

If IsEmpty("Q2") Then Exit Sub?
Else 'do nothing - it's still got data I want it to continue the macro
End If? 'here there is an error message of "End If without Block If"

Great, cheers guys.