Hej
Jeg har et udsnit - se herunder (I hope) -fra en rapport generet via VBA i Excel
 
Chekbokse er sat med følgende kode
For Each cell1 In Range("A25:R200")
If cell1.Interior.Color = RGB(202, 255, 204) Then
 ActiveSheet.CheckBoxes.Add(cell1.Left + 6, cell1.Top, cell1.Width, cell1.Height).Select
    With Selection
     .Interior.ColorIndex = 0   'or  xlNone or xlAutomatic
     .Name = "bo" & cell1.Row
     .Caption = ""
     .OnAction = "sheet4.lonny1_change" ' testing
    End With
End If
If cell1.Interior.Color = RGB(203, 255, 204) Then
 ActiveSheet.CheckBoxes.Add(cell1.Left + 6, cell1.Top, cell1.Width, cell1.Height).Select
    With Selection
     .Interior.ColorIndex = 0   'or  xlNone or xlAutomatic
     .Name = "bo" & cell1.Row & "_" & cell1.Column
     .Caption = ""
     .OnAction = "sheet4.lonny2_change" ' testing
    End With
End If
If cell1.Interior.Color = RGB(204, 255, 204) Then
 ActiveSheet.CheckBoxes.Add(cell1.Left + 6, cell1.Top, cell1.Width, cell1.Height).Select
    With Selection
     .Interior.ColorIndex = 0   'or  xlNone or xlAutomatic
     .Caption = ""
    End With
End If
Next

Ved hak i checkbokse med overskriften All skal de efterfølgende 8 vandrette chekbokse sættes
Ved fravalg af et hak i en de 8 checkbokse benævnt med retningerne fra N til NW skal hakket i chekboksen med overskriften All fjernes.uploads/60/forum_spørgsmål.jpg
Har prøvet mig frem med diverse copy-pastet koder fra nettet, men intet har fungeret. Hvordan løser jeg dette?

Det skal bemærkes at jeg har flere rapporter valgt fra en forside og for hver af disse rapporter er placeringen af ”udsnittet” med Stationsfoto forskelligt – altså i forskellige rækkenr  og derfor har jeg valgt rækkenummer i navngivningen. Antallet af rækker (og dermed instrumenter) også er forskelligt  på hver rapport.
PÅ forhånd tak fra Lonny