VBA Shape Transparent

ActiveSheet.Shapes(1).Fill.Visible = msoFalse
VasteMonde