format an entire column to contain checkbox activex control
I learned out how to insert one checkbox, but how do I insert them down an
entire row - copy paste paste special does not seem to work.. |
format an entire column to contain checkbox activex control
Hi Blunoob,
Try: '============= Public Sub Tester01() Dim SH As Worksheet Dim rng As Range Dim rCell As Range Set SH = ActiveSheet '<<==== CHANGE Set rng = SH.Range("A1:A100") '<<==== CHANGE Application.ScreenUpdating = False For Each rCell In rng With SH.CheckBoxes.Add(rCell.Left + 5, _ rCell.Top - 2, 5, 5) .Caption = "" .LinkedCell = rCell.Address(0, 0) End With rCell.Font.Color = vbWhite Next rCell Application.ScreenUpdating = True End Sub '<<============= If you are new to macros, you may wish to visit David McRitchie's 'Getting Started With Macros And User Defined Functions' at: http://www.mvps.org/dmcritchie/excel/getstarted.htm --- Regards, Norman "blunoob" wrote in message ... I learned out how to insert one checkbox, but how do I insert them down an entire row - copy paste paste special does not seem to work.. |
All times are GMT +1. The time now is 09:53 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com