Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
ActiveSheet.Shapes("shpPart1").Fill.ForeColor = 13998939
Sub PartShapesTEST2() Dim s As Shape Dim lngColor As Long Set s = ActiveSheet.Shapes("shpPart1") lngColor = s.Fill.ForeColor s.Fill.ForeColor = lngColor End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.