Gennemløb og reager på markerede celler

Hvad mener du med markeret. ?  At cellen er selected eller har en bestemt farve eller ?

Hvis du mener valgt/selected så er her en kode

Sub test()

Dim rCell As Range
  'gennemløb alle markerede celler
  For Each rCell In Selection
      If Not Intersect(rCell, Range("A1:A200")) Is Nothing Then
        'hvis cellen er markeret og indenfor A1:A20
        fn1
      Else
        'hvis cellen ikke er markeret
        fn2
      End If
  Next

End Sub

Ikke helt godt nok. Undskyld jeg skulle have udtrykt mig mere præcist.
Jeg har f.eks. data i cellerne A1 til A6, men kun markeret/selected (med ctrl mouse) cellerne A2 og A4.

Rutinen skal ikke kun virke på cellerne der er markeret/selected (In Selection) men gennemløbe alle cellerne fra A1 til A6 og udføre en handling for cellerne der er markerede og en anden handling for de ikke markerede celler. Håber det er mere tydeligt nu.

Sub test()
    Dim rCell As Range
    Dim A As String
    A = Selection.Address ' finder adressen på  alle markerede celler
    For Each rCell In Range("a1:A6").Cells
        If Not Intersect(rCell, Range(A)) Is Nothing Then
            'hvis cellen er markeret og indenfor A1:A6
            fn1
        Else
            fn2
        End If
    Next
End Sub

marker mit navn og tryk accepter, hvis det virkede