Column size not working for data rows

[jmacleary]

Hello folks. I have a strange situation - I am resizing the width of column A, but the resize doesn't seem to 'take' on the data rows borders. This only happens if I run a macro in a different workbook that sends a CDO email (the macro actually fails but closes all CDO objects). See the snapshot - I resized column A wider, then narrower but you can see the column letters are offset compared to the columns. (Ignore the blue line). The actual cell size seems to be the narrower size. I have rebooted the PC and it still does the same. Does anyone have any idea what's happening? This is excel 365 desktop version.

 

[Candyman8019]

I would bet if you turn on word wrap on column A then the resize would work as expected.

 

[Jeffrey Mahoney]

I've seen this weirdness before. I can't remember if was able to solve it.

 

[jmacleary]

Hi Candyman - unfortunately not:

 

[RoryA]

Does it persist if you switch sheets?

 

[jmacleary]

Hi Rory. Very strange things happen! I am posting the code I run in the other workbook, but as far as I can see (apart from the fact that it errors on the send) there is nothing special about the code. In the error routine which is invoked, I am closing the created objects and resetting the error state, so there should be no issues there. The workbook giving problems is a non-macro workbook.

Anyway, the previously described events happen on a single sheet, but if I try to switch to another sheet, the click on the sheet name doesnt work. If instead I create a new sheet, go to it and then back to sheet 1, sheet1 becomes correctly displayed and editable, however I cannot switch between sheets.

Here is the code from the original workbook:

Sub FormatandSendForm()
' this routine sends the message template contained in the control worksheet, with the attachment specified.

    'Application.ScreenUpdating = False



    Set iMsg = CreateObject("CDO.Message")
    Set iconf = CreateObject("CDO.Configuration")

    iconf.Load -1    ' CDO Source Defaults
    Set Flds = iconf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
        = Sheets("Sheet1").Range("B5").Text
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With

    On Error GoTo failure
    
    With iMsg
        Set .Configuration = iconf
        .To = Sheets("Sheet1").Range("B6").Text
        .CC = Sheets("Sheet1").Range("B7").Text
        '        .BCC = WhoFrom
        .From = "testmail@blurbblurb.etc"
        .Subject = Sheets("Sheet1").Range("B8").Text
        .TextBody = Sheets("Sheet1").Range("B9").Text

' the .Send fails as the smtpserver name is invalid - this is by design
        .Send
    End With
    
    Set iMsg = Nothing
    Set iconf = Nothing
    MsgBox "Message sent"
    'Application.ScreenUpdating = True
    Exit Sub
failure:
    Application.ScreenUpdating = True
    Set iMsg = Nothing
    Set iconf = Nothing
    MsgBox "Error number " & Err.Number & Chr(13) & Chr(13) & Err.Description
    On Error GoTo -1 ' clear the error
End Sub