Function Shapetest()
Application.ScreenUpdating = False
With ActiveSheet.Shapes(1).Fill
     If .ForeColor.RGB = vbYellow Then
        SetColor vbGreen
     Else
        SetColor vbYellow
     End If
End With
MsgBox "done"
End Function
Function SetColor(Farbe As Long)
With ActiveSheet.Shapes(1).Fill
    .ForeColor.RGB = Farbe
End With
Application.ScreenUpdating = True
ActiveWindow.SmallScroll down:=1
ActiveWindow.SmallScroll up:=1
Application.ScreenUpdating = False
End Function