refer to range in loop

[mkw4949]

I'm creating a simple loop that will go through a given range and every time the cell contains the work "UNIT" as the first 4 characters I want the macro to to organize the data. The problem is that I can't seem to get VBA to any actions to cells in the target range. here is the code I'm using:

Sub SortData()

Dim rDataTable As Range
Dim c As Range
Dim rTarget As Range
Dim x As Integer

Set rDataTable = Sheet1.Range("A21:A34")
Set rTarget = Sheet1.Range("H21")
x = 0

For Each c In rDataTable
Debug.Print Left(c.Value, 4)
Debug.Print c.Value
    If Left(c.Value, 4) = "UNIT" Then
        Sheet1.Cells(rTarget.Row + x, rTarget.Column) = c.Value
        x = x + 1
    Else: End If
Next c

End Sub

Any suggestions would be greatly appreciated. Thanks.

 

[Marcelo Branco]

Maybe

If UCase(Left(c.Value, 4)) = "UNIT" Then

HTH

M.

 

[mkw4949]

Thanks for the suggestion but that didn't work either. The problem is that my code does not seem to recognize the "c" variable. For example the two Debug.Prints that I am using return blanks as values which I don't understand. If I do a "Debug.Print c.Address" I get the addresses for "c". . .

 

[Marcelo Branco]

Strange...
It worked perfect for me

M.

 

[mkw4949]

Ummmm. . . You're right. I was being an idiot. I wrote the macro in the wrong workbook so when ever I tested it it was looking at the wrong workbook and of course not doing anything to the intended workbook. . . Thanks for your time. I appreciate it. Take care.

Strange...
It worked perfect for me

M.

 

[Marcelo Branco]

Ummmm. . . You're right. I was being an idiot. I wrote the macro in the wrong workbook so when ever I tested it it was looking at the wrong workbook and of course not doing anything to the intended workbook. . . Thanks for your time. I appreciate it. Take care.

It can happen with anyone. Tks for your kind words.

All the best

M.