Checking if a worksheet-based checkbox is checked

by 
Sub Button167_Click()
 If ThisWorkbook.Worksheets(1).Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then
 Range("Y12").Value = 1
 Else
 Range("Y12").Value = 0
 End If
End Sub

1 is checked, -4146 is unchecked, 2 is mixed (grey box)

More Related Contents:

  1. Dir() function not working in Mac Excel 2011 VBA
  2. VBA Shell function in Office 2011 for Mac
  3. VBA (Excel) Dictionary on Mac?
  4. Create a folder and sub folder in Excel VBA
  5. Excel 2013 VBA Clear All Filters macro
  6. How do I issue an HTTP GET from Excel VBA for Mac
  7. Uncheck all checkboxes across entire workbook via CommandButton
  8. How can I install/use “Scripting.FileSystemObject” in Excel 2010 for MAC?
  9. The MacScript function is not working well in Office for Mac 2016! Any ideas?
  10. Save excel file multiple times with file names in another workbook.
  11. Read/Parse text file line by line in VBA
  12. How do I find the last column with data?
  13. Excel VBA: Answer gets “stuck”
  14. filter out multiple criteria using excel vba
  15. Excel VBA autofilter all but three
  16. Cells.Find() Raises “Runtime Error 91: Object Variable or With Block Not Set”
  17. Excel VBA code to copy a specific string to clipboard
  18. Excel VBA – Range.Copy transpose paste
  19. How do you get a Range to return its Name?
  20. How can I run VBA code each time a cell gets its value changed by a formula?
  21. How to convert 32 bit VBA code into 64 bit VBA code
  22. Referencing Excel Userform Control Name Value From String (VBA)
  23. Refreshing all the pivot tables in my excel workbook with a macro
  24. Countif With Multiple OR Criteria
  25. Vlookup to copy color of a cell
  26. every possible combination of the contents of 2 columns in excel
  27. How to delete rows in Excel based on criteria using VBA?
  28. Macro to export MS Word tables to Excel sheets
  29. VBA WinHTTP to download file from password proteced https website
  30. Function Overloading and UDF in Excel VBA

Leave a Comment