Sub Buena()
' SI ESTA VACIA LA CELDA
If IsEmpty(Cells(3, 2)) Then
Sheets("Hoja1").Select
ActiveSheet.Shapes("Botón 1").Select
Selection.Characters.Text = "En Blanco"
Else
' SI ESTA LLENA LA CELDA
Sheets("Hoja1").Select
ActiveSheet.Shapes("Botón 1").Select
Selection.Characters.Text = Sheets("Hoja2").Range("B3")
End If
End Sub
Sub Buena()
If IsEmpty(Cells(3, 2)) Then
Sheets("Hoja1").Select ' --- SI ESTA VACIA LA CELDA
ActiveSheet.Shapes("Botón 1").Select
Selection.Characters.Text = "En Blanco"
Else
Sheets("Hoja1").Select ' --- SI ESTA LLENA LA CELDA
ActiveSheet.Shapes("Botón 1").Select
Selection.Characters.Text = Sheets("Hoja2").Range("B3")
End If
End Sub