Error Handling: on Private Sub during copy sheet...

[itr674]

I'm using this code on each sheet to call another macro, but when I try to copy that sheet to a Book1 I get an error.

I've tried to use On Error Resume Next but must not be using it correctly?

Code

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
SetFontAeral7_RowAutoFit
Application.ScreenUpdating = True
End Sub

 

[Norie]

It might help to see the other code, that's probably where the problem lies.

It might also help to know what the error is.

 

[itr674]

this is the Public Code:

Sub SetFontAeral7_RowAutoFit()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Rows("3:248").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Font
.Name = "Arial"
.Size = 7
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Selection.Rows.AutoFit
Range("I1").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
Application.ScreenUpdating = True
End Sub

Private Sub:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
SetFontAeral7_RowAutoFit
Application.ScreenUpdating = True
End Sub

 

[Norie]

And the error is?

 

[itr674]

forgot

Compile Error

Sub or Function not defined

It is generated on the new book that is created because the sub is not in that book--it's in the book that the sheet was copied from, gut that coode is not needed in the new book...

 

[itr674]

Straightening up previous post--LAN problems

Compile Error
Sub or Function not defined

It is generated on the new book that is created because the sub is not in that book--it's in the book that the sheet was copied from, but that coode is not needed in the new book...