simple for each problem
 

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

simple for each problem
 

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).
--
HTH...

Jim Thomlinson


"John" wrote:

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

simple for each problem
 

this works, thanks Jim

"Jim Thomlinson" wrote:

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).
--
HTH...

Jim Thomlinson


"John" wrote:

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