For Each in VBA

[Dave F]

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

 

[Bob Phillips]

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)

 

[Guest]

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

 

[Dave F]

Thanks, works perfectly

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









- Show quoted text -