VBA code to change fill color of a cell if it contains any string

[wrecclesham]

I want to conditionally format cells in the range A1:A200 that contain any string.

If a cell is blank, no formatting should apply to that cell, but once any string is entered in a given cell, that individual cell should have its fill changed.

Any ideas?

 

[wrecclesham]

I tried deleting my existing VBA code and replacing it entirely, just for testing purposes.

 

[Fluff]

How are you running it?

 

[wrecclesham]

I pasted it here, where my previous VBA code was:

I'm quite new to this, so I'm probably missing something basic.

<a href="https://imgur.com/xkn1UHY"><img src="https://i.imgur.com/xkn1UHY.png" title="source: imgur.com" /></a>

 

[wrecclesham]

Other than pasting it into the code editor, I'm not actually running it. The other piece of VBA code I'm using (for automatic alphabetizing) ran automatically.

I assumed this would be the same but perhaps I'm wrong?

 

[Fluff]

Put your original code back in & just add the code you've shown at the end, just before the End Sub line

 

[wrecclesham]

You're a genius!!

Those five lines of code do exactly what I want. You even matched the colors from my screenshot!

Now I can drag and drop or copy and paste hard values between the two columns without worrying about rules being affected in the process.

This is the elegant solution that I had in mind from the start. I wasn't expecting to have a perfect working solution less than 24 hours after posting my question, that's for sure!

THANK YOU!!!

 

[Fluff]

You're welcome & thanks for the feedback