Excel Macro Causing the Formatting to change to Default

ubns · #1 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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