Tengo un problema al querer utilizar la variable "nombre" de otra subrutina. Ésta la quiero para poder editar una gráfica. En este caso la primera subrutina genera la gráfica y le pone el nombre. En la segunda subrutina, la quiero editar pero no puedo llamar la variable "nombre" que es donde tengo cómo se llama la gráfica.
Public **nombre** As String
Sub GRAFICA2()
Dim Grafica As String
nombre = InputBox("Escribe el nombre de la grafica:")
Dim Rango As Range
Set Rango = Selection
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Rango
ActiveChart.Parent.Name = nombre
ActiveSheet.ChartObjects(nombre).Activate
ActiveChart.ChartTitle.Select
Selection.Delete
Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(nombre).Chart
cht.ChartArea.Format.TextFrame2.TextRange.Font.Size = 10
cht.ChartArea.Format.TextFrame2.TextRange.Font.Name = "Arial"
cht.ChartArea.Font.Color = RGB(0, 0, 0)
End Sub
Sub grafica2A()
Dim Rango2 As Range
Set Rango2 = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
ActiveSheet.ChartObjects(nombre).Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.FullSeriesCollection(1).XValues = Rango2
End Sub