COLOCAR MODULO GLOBAL A TODAS AS SHEETS

MAGICMEN 29/08/2011 08:49:58
#382697

Podem dar uma ajuda para colocar este codigo num modulo que funcione para todas as sheets

se colocar na sheet1 funciona


Private Sub Worksheet_Change(ByVal Target As Range)
Dim vVal
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range([Ô]A1:A100[Ô])) Is Nothing Then Exit Sub
With Target
vVal = Format(.Value, [Ô]0000[Ô])
If IsNumeric(vVal) And Len(vVal) = 4 Then
Application.EnableEvents = False
.Value = Left(vVal, 2) & [Ô]:[Ô] & Right(vVal, 2)
.NumberFormat = [Ô][h]:mm[Ô]
End If
End With
Application.EnableEvents = True
End Sub