Excel Macro Causing the Formatting to change to Default

ubns · #4 03-29-2015, 05:36 PM

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

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using VBA to change styles causing TabStop problem	rjrichar40	Word VBA	2	08-12-2014 10:35 AM
Change Default Excel Grid to Solid Black Lines	SQLUSA	Word	1	07-15-2012 10:04 PM
Importing Styles causing odd formatting problems.	Red Pill	Word	3	06-12-2012 06:19 AM
How do I change default	cinque8	Word	5	06-08-2012 11:18 AM
How do I change default log-in info?	RainPure	Office	0	11-15-2010 05:07 AM