So, I have tried to use the center across section and it will not work for the application and I have no choice but to use merged cells. center across section wont work because I want A4 B4 as one heading and c4 d4 as another and so on. When I do A4B4 as "center across section" and then c4d4 as another "center across section" it makes text in A4 center in between A4 and D4 not A4 B4.
That being said. I am trying to have a cell checked for empty,
if its empty, I want it to delete a picture, text, and pictures/text in comments.
It works for the most part.
but it stalls and doesnt complete the operation and not sure what i am missing.
Dim Rng As Range
Dim pic As Picture
Dim cmt As Comment
Set Rng = Range("A4")
If IsEmpty(Rng) = True Then
If Not Rng.Offset(rowOffset:=1, columnOffset:=0).Comment Is Nothing Then
Rng.Offset(rowOffset:=1, columnOffset:=0).Comment.Delete
End If
For Each pic In ActiveSheet.Pictures
If Not Application.Intersect(pic.TopLeftCell, Rng.Offset(1, 0)) Is Nothing Then
pic.Delete
End If
Next
'doesnt work past here
If Not Rng.Offset(1, 1).MergeArea(1, 1).Comment Is Nothing Then
Rng.Offset(1, 1).MergeArea(1, 1).Comment.Delete
End If
Rng.Offset(1, 1).MergeArea(1, 1).ClearContents
End If
Display More
This is what I have. It works until the comment 'doesnt work past here.
For reference, the A4 is where I want it to check for text. A4 is a merge of A4 and B4.
If there is text I dont want it to do anything. If A4 is blank. I want it to delete the comment and pic from A5 and any text in B5 and any comment on B5.
The offset command works for the contents of A5 but nothing works in relationship to B5.
Ive messed with various variations using mergearea and also with out that function. cant seem to get it to step into B5.
Thanks for any help