Private Sub ComBanco_Change()
Dim hojabuscada As String
Dim ultFila As Long
Dim ultCol As Long
hojabuscada = ComBanco
With Sheets(hojabuscada)
ultFila = .Cells(.Rows.Count, 1).End(xlUp).Row
ultCol = .Cells(6, .Columns.Count).End(xlToLeft).Column
LstDiario.RowSource = .Range(.Cells(6, 1), .Cells(ultFila, ultCol)).Address(External:=True)
End With
End Sub
El saldo inicial no se si quieres que se muestre, en caso contrario modifica la macro, simplemente cambia en la dos ultimas líneas del bloque with el 6 por el 7
Para Foro.xlsm