Private WithEvents NewDGV As DataGridView
 
Privat sub ...
For Each Sheet In .ActiveWorkbook.Sheets
                Dim NewTab As New TabPage(Sheet.Name)
                NewTab.Select()
                TabControl1.TabPages.Add(NewTab)
                TabControl1.SelectedTab = NewTab
                Dim NewDGV As DataGridView = New DataGridView()
                NewDGV.Columns.Add("Feld", "Feld")
                NewDGV.Columns(0).Width = 50
                NewDGV.Columns.Add("Formel", "Formel")
                NewDGV.Columns(1).Width = 400
                NewDGV.Columns.Add("Ergebnis", "Ergebnis")
                NewDGV.Columns(2).Width = 200
                NewDGV.Columns.Add("Geschüzt", "Geschüzt")
                NewDGV.Columns(3).Width = 70
                NewDGV.Width = TabControl1.Width
                NewDGV.Top = NewDGV.Top + 50
                NewDGV.Height = TabControl1.Height - 50
....
end sub
 
Private Sub NewDGV_CellClick(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellEventArgs) Handles NewDGV.CellClick
        MsgBox(NewDGV.CurrentRow.Cells(0).Value)
End Sub