VBA "For Each" code run only in first row

[dukeofscouts]

Hello I'm editing a code I wrote to make it have the ability to handle a range of cells and not be limited to just one. The issue is that since I will not be the primary user of the workbook I need to dummy proof it a little. What I need to do is limit the code to only run in the top cells on the selection. here is what I have so far

Dim I as range
For each I in selection
application.enableevents = false
.... (You get the point)....
application.enableevents = True
next I

Any suggestions how to make the VBA limited to the top cells?

 

[AlphaFrog]

For Each I in Selection.Rows(1)

 

[dukeofscouts]

It would be that easy wouldn't it.... WAY COOL

Thanks,