How to tell whether a cell contains a formula?
if all the formulas would refer to cells on the same sheet.
Sub MarkCells() Dim rng As Range Dim rng1 As Range Dim cell As Range On Error Resume Next Set rng = ActiveSheet.Cells.SpecialCells(xlFormulas) On Error GoTo 0 If Not rng Is Nothing Then For Each cell In rng Set rng1 = Nothing On Error Resume Next Set rng1 = cell.DirectPrecedents On Error GoTo 0 If Not rng1 Is Nothing Then cell.Interior.ColorIndex = 3 End If Next End If End Sub Regards, Tom Ogilvy "Seihee" wrote in message ... Hi! I'm writing a macro to examine all cells in a worksheet. If a cell contains a "pure formula" referencing other cells, then I want to change the color of the cell that contains a formula. In a macro, is there any way I can tell whether a cell contains a formula rather than pure values (number, literal, etc.)? By "pure formula", I mean a formula that contain a cell reference. In other words, "=b5+k2" will be considered a formula but "=5+28/4" will not for my purposes. Your help will be greatly appreciated. Thanks, Seihee |
All times are GMT +1. The time now is 04:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com