excel vba - Count a range, then color it -

I am trying to run a simple script to count a range and try to color it, but I get 1004 error

Limit-counting works and fixes the count range.

  sub text () Integer T = application as DeemT. Worksheet Function. Contraag (Range ("A: A"), "*") Dim TextString A string text string A = "A2: A" & amp; T Range ("J1") = TextString A 'counting range color does not work Only 1 active sheet exists in the book' I have tried many other similar methods shown in the forum, but I keep errors 'on the same line' I am 'I tried to use' selection 'before color, but' not good. Dim RNGA RNGA as the range set = activate. Ranges ("TextString A") "Debug_Are_Are` Category (" Texture A "). Internal. First, remove the quotation marks from the  textstringA  where you try to use the value of the colored index = 10 end sub  

  set RNGA = activate. Ranges (Textrestring A) Range (Textord A). Color index = 10  

You are not defining anywhere textrange A next, if t & lt; 2. So you need to account for this kind of situation.

Try

  Range (TextString A). External Colorindex = 10  

And you will see that it works.