Reply to thread

Message: [QUOTE="Otto Moehrbach, post: 6339674"] I would use a Workbook_SheetChange macro in the Workbook module as shown below. I assumed your 13th sheet is named "13thSheet". Come back if you need more. HTH Otto Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Sh.Name = "13thSheet" Then Exit Sub If Not Intersect(Target, Sh.Range("B3")) Is Nothing Then 'Note that Target.Value is sheet name selected 'Note that Sh is the sheet that holds the Target cell 'Note that Target.Address is B3 'Place your code here or a call to your macro End If End Sub [/QUOTE]