Clear comments from a range of cells

[Damo10]

Hi,

I am trying to clear the comments from a range of cells without much luck, can anyone offer some advice?

c.Offset(, 8).Resize(, 108).ClearComments

Regards,

 

[My Aswer Is This]

Give us more details about the range you want to work with.

 

[Michael M]

HAve you tried referencing the range, eg...

Sub MM1()
Range("A1:A10").ClearComments
End Sub

 

[Damo10]

Hi,

I have tried that but the comments don't delete from range.

the actual columns to delete the comments from are J:DM but the row will always be different.

Regards,

 

[Michael M]

So, are you saying you want to remove comments from any / all rows in cols J:DM ??

 

[Damo10]

I would like the comments to be deleted from cols J:DM but only for the selected row which is found via vba which is c.Offset(, 8).Resize(, 108).

 

[My Aswer Is This]

Your not explaining what "c" is
For some reason your only providing part of your script.

I would like the comments to be deleted from cols J:DM but only for the selected row which is found via vba which is c.Offset(, 8).Resize(, 108).

 

[Damo10]

Private Sub btnSave_Click()
Dim res As VbMsgBoxResult
Dim Rng As Range
Dim c As Range
res = MsgBox("Are you sure you want to delete employee" & vbLf & vbLf & Me.cboEmp.Column(0) & vbLf & "Employee number " & Me.cboEmp.Column(1) & "?", vbYesNo, "Deletion Check")
If res = vbNo Then Exit Sub
Set Rng = Sheet1.Range(Sheet1.Range("B8"), Sheet1.Range("B" & Rows.Count).End(xlUp))
For Each c In Rng
    
    If c.Text = Me.cboEmp.Text And c.Offset(, 1).Text = Me.txtEmpNo Then
        c.Resize(, 3).ClearContents
        c.Offset(, 8).Resize(, 108).ClearContents
    End If
Next c
Call SortAddBlankRows
ActiveWorkbook.Save
Unload Me
End Sub

 

[My Aswer Is This]

In post #1 you said:
c.Offset(, 8).Resize(, 108).ClearComments

In post #8 you said:
c.Offset(, 8).Resize(, 108).ClearContents


So what is it?

Are we clearing "Contents" or "Comments"

There is a differents.

 

[Damo10]

I am trying to do both.

Post 1 is what I tried and it didn't work this line was added after the ClearContents line and post 8 is the current code