make cell blank if greater than

[tintin1012000]

I'm looking to change cells to blank if their content is greater than 30 using VBA

anyone know how to do this please

 

[Snakehips]

Maybe along these lines if the range is contiguous yet variable

Sub test()

Set Rng = Selection  ' or specify in some other way


Rng.Value = Evaluate("IF(" & Rng.Address & ">30, """"," & Rng.Address & ")")


End Sub

Hope that helps.