Sub EachTest()
Dim A As Range, MyString As String
MyString = "10"
For Each A In Range("A10:A20")
If A.Value = True Then A.value = MyString
Next
End Sub


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Dave F" wrote in message
oups.com...
I have the following macro which isn't working:

Sub EachTest()
Dim A As Variant, MyString As String
MyString = "10"
For Each A In Range("A10:A20")
If A.Value = True Then MyString
Next
End Sub

When this is run I get an error: "Compile error. Expected Sub,
Function or Property."

I'm trying to replace TRUE values in A10:A20 with the number 10 and
ignore the FALSE values.

Presumably I'm missing something simple here.

Thanks,

Dave