try this
Sub CopyComments()
' code by daniel
Dim Rg As Range, C As Comment
Dim Sh As Worksheet, x As Range
Set Sh = Workbooks("Database.xls").Sheets("Sheet1")
With ThisWorkbook.Sheets("Sheet1")
For Each Rg In .Range("j12 :j" & .Range("j65356").End(xlUp).Row)
Set x = Sh.Range("J:J").Fi
Hi Ashish
Thanks for tht. However it is not what I need. It is great for the photo
selection and I will use it for that. What I want here is to copy the
Comments Box thru to another sheet.
Daniels code appears to be exactly what I want but a small error at the
moment. If I can get Daniels cod
Hi
Is someone able to comment on my problem as below. Tried to contact Daniel
with no luck.
Thankyou
Charlie Harris
On Fri, Jul 8, 2011 at 1:13 PM, Cab Boose wrote:
> Hi Daniel
>
> Thanks for code. Have done as you suggest and installed in the Shipments
> wb. When I run the code it goies t
Hi Daniel
Thanks for code. Have done as you suggest and installed in the Shipments
wb. When I run the code it goies thru to var =... and gives a
message that ' variable not defined ' .
Is there something missding ?
Your help appreciated.
Thanks
Charlie
On Fri, Jul 8, 2011 at 3:
Hello :
Note that the macro should be in the Shipment-New.xls workbook :
Sub CopyComments()
Dim Rg As Range, C As Comment
Dim Sh As Worksheet, x As Range
Set Sh = Workbooks("Database.xls").Sheets("Sheet1")
With Sheets("Sheet1")
For Each Rg In .Range(.[J12], .Cells(.Rows.Count, 10).
