Dim colsel As Long
Dim col As Long
Dim row As Long

Private Sub MSHFlexGrid1_Click()
col =  0 
row =  0 
colsel =  0 
With MSHFlexGrid1
    col = .col
    row = .row
    colsel = .colsel
End With

End Sub

Private Sub MSHFlexGrid2_Click()
With MSHFlexGrid2
    .col = col
    .row = row
    .colsel = colsel
    .SetFocus
End With
End Sub

Private Sub MSHFlexGrid1_Click()
With MSHFlexGrid2
    .col = MSHFlexGrid1.col
    .row = MSHFlexGrid1.row
    .colsel = MSHFlexGrid1.colsel
    .RowSel = MSHFlexGrid1.RowSel
    .SetFocus
End With
End Sub