PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
Sub ShapeHeightAnimation() Dim Total As Double ActiveSheet.Shapes("Rectangle 1").Height = 0 For i = 1 To 100 ActiveSheet.Shapes("Rectangle 1").Height = i 'slow down For iRow = 1 To 8000 Total = Total + Sheet2.Cells(iRow, 1).Value / 1000 Next iRow Next i End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel 2016 lost MRU list||8||69|
|Modify to work without control shift enter||9||35|
|Visual Basic 6: Code needed for TripleDES Encryption/Decryption||13||40|
|Array not populating all cells in Excel||6||22|