Guest User

Untitled

a guest
Jul 19th, 2019
57
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub showcolor()
  2.  
  3. Debug.Print Hex(ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Cells(10, "AB").Interior.Color)
  4. Debug.Print Hex(ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Cells(34, "AB").Interior.Color)
  5. Debug.Print Hex(ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Cells(13, "AB").Interior.Color)
  6. Debug.Print Hex(ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Cells(12, "AB").Interior.Color)
  7.  
  8. End Sub
RAW Paste Data