usa questo...
testato contro le macchie....

codice:
Dim varBmk As Variant

For Each varBmk In Me.Griglia.SelBookmarks
      Me.Griglia.Bookmark = varBmk
      Me.Griglia.Col = 0
      msgbox Me.Gridassegnati.Text 
Next
ovvero per ogni riga selezionata posizionati e leggi....