Adattare righe a testo contenuto

[BG66]

Ciao a tutti.
Vorrei che selezionando la scelta in A2 del foglio “TEST_MASTER, la dimensione righe di specifici range si adattasse.
Ho provato in questo modo ma RIEN A FAIRE :

Codice: Seleziona tutto

Option Explicit
Public Sub AutoFitAll()
  Call AutoFitCells(Range("c6:c10"))
  Call AutoFitCells(Range("c14:c18"))
  Call AutoFitCells(Range("c22:c26"))
  Call AutoFitCells(Range("c30:c34"))
  Call AutoFitCells(Range("c38:c42"))
  Call AutoFitCells(Range("c46:c50"))
  Call AutoFitCells(Range("c54:c58"))
  Call AutoFitCells(Range("c62:c66"))
  Call AutoFitCells(Range("c70:c74"))
  Call AutoFitCells(Range("c78:c82"))
   
End Sub
Public Sub AutoFitCells()
        With Sheets("TEST_MASTER")
        .EntireRow.AutoFit
        End With
End Sub

.
https://www.dropbox.com/scl/fi/h806u8n3zyigwcqjbfllu/Verifica_Test-v3.1_Forum.xlsm?dl=0&rlkey=xmd0lhm9jiaqsz0mj7g2gqw08

Grazie per l'aiuto
PS Nel file allegato, la modifica della selezione avviene solamente per la domanda 1 ma una volta capito l'errore poi sistemo il resto!!

[Anthony47]

Mantenendo lo stesso approccio, modifica il codice della subroutine AutoFitCells:

Codice: Seleziona tutto

Public Sub AutoFitCells(myR As Range)
        myR.EntireRow.AutoFit
End Sub

Ciao

[BG66]

[RISOLTO]
Stavolta ci sono andato più vicino del solito...
Anthony, grazie come al solito.

Alla prossimoa
Gene
STAY SAFE