macro

hola, Fran !

Como puedo en esta macro que tengo echa [...]
Esta otra [...]

[segun parece]... podrias conjuntar los codigos +/- de la siguiente forma:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$E$5" Then _
If Target <> UCase(Target) Then _
Target = UCase(Target)
If Target.Column = 2 And Target = "m2" _
Then Cells(Target.Row, 1).NumberFormat = "0.00" _
Else Cells(Target.Row, 1).NumberFormat = "General"
If Target.Column = 1 And Target <> "B" Then Exit Sub
Dim Fig As Shape
For Each Fig In ActiveSheet.Shapes
If Fig.Type = msoPicture _
And Fig.TopLeftCell.Address = Target.Offset(, 1).Address _
Then Fig.Delete: Exit For
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ los codigos expuestos __

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$5" Then
If Target.Value <> UCase(Target.Value) Then
Target.Value = UCase(Target.Value)
End If
End If
If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
If Target <> "B" Then Exit Sub
Dim Fig As Shape
For Each Fig In ActiveSheet.Shapes
If Fig.Type = msoPicture _
And Fig.TopLeftCell.Address = Target.Offset(, 1).Address _
Then Fig.Delete: Exit For
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target = "m2" Then
Cells(Target.Row, 1).NumberFormat = "0.00"
Else
Cells(Target.Row, 1).NumberFormat = "General"
End If
End Sub

Gracias y feliz 2007