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
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