View Single Post
 
Old 03-28-2015, 10:57 PM
ubns ubns is offline Windows 7 32bit Office 2010 32bit
Competent Performer
 
Join Date: Apr 2012
Posts: 177
ubns is on a distinguished road
Default Excel Macro Causing the Formatting to change to Default

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.

Code:
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
Reply With Quote