Tor Cheer

Si puede compartir una copia de su archivo para intentar ayudarle

Comparta la macro o el archivo para tratar de ayudarle

Intente con Val como este ejemplo Val(ListBox1.List(i, 1))

En este enlace hay un archivo como ejemplo, para que lo adapte a sus necesidades, cualquier cosa comenta https://drive.google.com/drive/folders/18FD-0h-tR7sS_cZZhLJhFPnrx483XODq?usp=sharing

Si comparte una copia de su archivo para intentar ayudarle

Cree un botón y con es macro le hará una copia de su archivo Sub GuardarLibro() 'Tor Dim newBook As Workbook Dim newSheet As Worksheet Dim name As String ruta = ThisWorkbook.Path name = InputBox("Escriba el nombre del Libro") & ".xlsm"...

Pruebe haciendo referencia al nombre de la hoja Sheets("NombreHoja").Unprotect "VEO_2016"

De clic derecho en la hoja en cuestión y de clic en Ver código y ponga este código Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Name = Range("R1").Value End Sub

No me queda bien claro lo que necesita, si puede compartir una copia de su archivo y explicar ahí el rango de celdas a imprimir y donde están los demás datos en el rango de fechas

Ponga un ejemplo gráfico de sus datos o mejor aun comparta una copia de su archivo para tratar de ubicar el problema