Thanks, works perfectly

On Aug 9, 11:42 am, Gary''s Student
wrote:
Sub EachTest()
Dim A As Variant, MyString As String
MyString = "10"
For Each A In Range("A10:A20")
If A.Value = True Then
A.Value = MyString
End If
Next
End Sub

--
Gary''s Student - gsnu200736



"Dave F" wrote:
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- Hide quoted text -

- Show quoted text -