Inserting comments into range of cells

**rakesh.a.r** · 07-04-2012, 07:12 AM

Hi ,

I need to insert a particular line of comment into selected range of cells.
Ex : I select range from A1 to F16 & I need all these cells to be inserted with comments via VBA

Could anyone please let me know the solution.

Any response will be highly appreciated.

Thanks in advance

Rakesh

**Ace_XL** · 07-04-2012, 07:19 AM

Add comment in Cell A1. Copy cell A1 and paste special --> comments across A1:F16.

With VBA...

Sub
Range("A1"). Select
Selection.Copy
    Range("A1:F16").Select
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

**rakesh.a.r** · 07-04-2012, 07:21 AM

Thank you Ace. But i was wondering if we could do this in any other way other than copy paste.

**Ace_XL** · 07-04-2012, 07:25 AM

Copy & paste special seems to be the easiest and most efficient way to me. Alternatively, you could use VBA to select each cell across A1:F16 and insert the same comment individually in each cell (bit more cumbersome!).

**rakesh.a.r** · 07-04-2012, 07:32 AM

This is what i am looking for. The earlier solution provided by you is the easiest however, i have other codes written in vba & i cannot use the same for some issues which i am aware.
Can you tell me how to code individual cells in a range with the comments.