diamond shaped in vba

Hello All,


Please help me to create below shape in excel sheet using VBA

*
**
***
****
*****
****
***
**
*excel forum.pngexcel forum.xlsx

Or this: NOTE: Worksheet .png graphic added to Original Post AFTER this was written.

Please Login or Register  to view this content.

Please click the Add Reputation star below any helpful posts, and if you have your answer, mark your thread as SOLVED (Thread Tools up top). Thanks!-Lee

And just for fun, this does the WHOLE DIAMOND:

Please Login or Register  to view this content.

Please click the Add Reputation star below any helpful posts, and if you have your answer, mark your thread as SOLVED (Thread Tools up top). Thanks!-Lee

Or this, with a twist:

Please Login or Register  to view this content.

This WORKSHEET FORMULA could be used without VBA:

=REPT("*",5-ABS(ROW()-8))

...where 5 is the maximum string length, and 8 is the row where it occurs. Row number must be greater than max. length.

Please click the Add Reputation star below any helpful posts, and if you have your answer, mark your thread as SOLVED (Thread Tools up top). Thanks!-Lee

Adding to leelnich code the border I think is required

Please Login or Register  to view this content.

Just realized the range was off. If borders required, fold into same With block. (Nod to nigelog.)

Please Login or Register  to view this content.

Please click the Add Reputation star below any helpful posts, and if you have your answer, mark your thread as SOLVED (Thread Tools up top). Thanks!-Lee