simple for each problem

[Guest]

any ideas why this is incorrect? Thanks for your help!

Range("b65536").End(xlUp).Select
rnglst = ActiveCell.Row

For Each rg In Range("a10:" & Range("a" & rnglst))
rg.Select
If rg > 0 Then
rg.Copy
rg.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End If
Next

 

[Guest]

You ave to add .Address to this line
For Each rg In Range("a10:" & Range("a" & rnglst))
like this
For Each rg In Range("a10:" & Range("a" & rnglst).Address)
otherwise Range("a" & rnglst) returns the value in that cell and not the
address of the cell (value is the default property of a range, not address).

 

[Guest]

this works, thanks Jim

You ave to add .Address to this line
For Each rg In Range("a10:" & Range("a" & rnglst))
like this
For Each rg In Range("a10:" & Range("a" & rnglst).Address)
otherwise Range("a" & rnglst) returns the value in that cell and not the
address of the cell (value is the default property of a range, not address).