VBA tidy up code

[tezza]

Hi

I'm just wondering if there's a way to tidy up this piece of coding:

        celltxt = ActiveSheet.Range("G" & n).Text
           If InStr(1, celltxt, "Shadowing") Then
               Range("T" & n).Value = Range("S" & n)
               Range("U" & n).Value = "0"
               Range("V" & n).Value = "0"
               Range("W" & n).Value = "0"
               Range("X" & n).Value = "0"
               Range("Y" & n).Value = "0"
           End If

It looks in Row G for "Shadowing" then gives a value of Cell S (same row) if true, also Columns U to Y will then be 0

 

[Joe4]

This part:

               Range("U" & n).Value = "0"
               Range("V" & n).Value = "0"
               Range("W" & n).Value = "0"
               Range("X" & n).Value = "0"
               Range("Y" & n).Value = "0"

can be simplified to:

               Range("U" & n & ":Y" & n).Value = "0"

Though, if you want the number 0 in those cells (and not the text "0"), remove the double-quotes from around the 0.
Double-quotes indicate text entries. Numeric values do not use double-quotes around them.

 

[tezza]

This part:

               Range("U" & n).Value = "0"
               Range("V" & n).Value = "0"
               Range("W" & n).Value = "0"
               Range("X" & n).Value = "0"
               Range("Y" & n).Value = "0"

can be simplified to:

               Range("U" & n & ":Y" & n).Value = "0"

Though, if you want the number 0 in those cells (and not the text "0"), remove the double-quotes from around the 0.
Double-quotes indicate text entries. Numeric values do not use double-quotes around them.

Thank you and well spotted with the "0"

 

[Joe4]

You are welcome!