Best use of memory

[Rayman]

For best use of memory and speed of macro what is the best coding?

This:
[vba]
Dim lbtarget As MSForms.ListBox
Dim rngSource As Range
Set rngSource = Worksheets("Sheet1").Range("A2:C5")
Set lbtarget = Me.ListBox1
With lbtarget
.List = rngSource.Cells.Value
Set rngSource = Nothing
Set lbtarget = Nothing
End With
[/vba]

Or this
[vba]
Dim rngSource As Range
Set rngSource = Worksheets("Sheet1").Range("A2:C5")
With Me.ListBox1
.List = rngSource.Cells.Value
Set rngSource = Nothing
End With
[/vba]

Thanks to all for reply.

[Kenneth Hobs]

[vba]ListBox1.List = Worksheets("Sheet1").Range("A2:C5")Value [/vba]

[justdriving]

Whenever we work on VBA, to release memory, it is very important to include before End Sub

[vba]Set rngSource = Nothing

Set <variable1> = Nothing

Set <variableN> = Nothing
[/vba]

[Rayman]

[vba]ListBox1.List = Worksheets("Sheet1").Range("A2:C5")Value [/vba]

Thanks Kennet, here my code in your way:
[vba]
Set sht = Worksheets("Elenchi")
cmbPersonale.List = sht.Range("B2:B" & sht.Cells(Rows.Count, 2).End(xlUp).Row).Value
CmbMacchine.List = sht.Range("D2" & sht.Cells(Rows.Count, 4).End(xlUp).Row).Value
CmbMateriali.List = sht.Range("H2:I" & sht.Cells(Rows.Count, 8).End(xlUp).Row).Value
CmbProduzione.List = sht.Range("K2:K" & sht.Cells(Rows.Count, 11).End(xlUp).Row).Value

Set sht = Nothing[/vba]

[Bob Phillips]

Whenever we work on VBA, to release memory, it is very important to include before End Sub


[VBA]Set rngSource = Nothing

Set <variable1> = Nothing

Set <variableN> = Nothing
[/VBA]

Read post#9 from Matt Curland, who knows a thing or two about garbage collection in VB, in this thread http://bit.ly/Curland

[Rayman]

Read post#9 from Matt Curland, who knows a thing or two about garbage collection in VB, in this thread http://bit.ly/Curland

Interesting article xld,

thanks for the link