Excel Macro Causing the Formatting to change to Default

[ubns]

I have an excel macro that is causing to typed content to change to default, so for example if I have entered something in italics, it would change it to normal once I press enter.

Can someone please let me know how I can change this macro to avoid this.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect ("")
If Target.Row > 4 And Target.Column = 7 Then
    Application.EnableEvents = False
    Target = Target & vbLf & " "
    Application.EnableEvents = True
End If
If Target.Address = "$g$5" Then
        Call AutofitRows
    End If

ActiveSheet.Range("g5:g35000").WrapText = True
ActiveSheet.Protect (""), Contents:=True, Scenarios:=True, AllowFormattingRows:=True, AllowFiltering:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowInsertingHyperlinks:=True, AllowSorting:=True
End Sub

[charlesdh]

Hi,

You have a call procedure what does it do?
As for what you posted I could not reproduce the problem that you mentioned.

[ubns]

AutoFit Function is the below. What can I change in this so that it does not change to default formatting.

Public Sub AutofitRows()
    Dim rng As Range
    Set rng = ThisWorkbook.Worksheets("projectandbau").Rows("1:5000")
    rng.Autofit
       
End Sub

[ubns]

sorry guys, tested again. Its definitely something in this code and NOT IN AUTOFITROWS()

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect ("")
If Target.Row > 4 And Target.Column = 7 Then
    Application.EnableEvents = False
    Target = Target & vbLf & " "
    Application.EnableEvents = True
End If
If Target.Address = "$g$5" Then
     '  Call AutofitRows
    End If

ActiveSheet.Range("g5:g35000").WrapText = True
ActiveSheet.Protect (""), Contents:=True, Scenarios:=True, AllowFormattingRows:=True, AllowFiltering:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowInsertingHyperlinks:=True, AllowSorting:=True
End Sub

[ubns]

Actually its application.enable events thats causing it. I have tested it thoroughly. Any idea how to overcome it without removing the use of Application.enableevents.