Thank you very much but give me error on
Run-time error '6':
Overflow
[vba]
Set rngA = ActiveSheet.Range("A1").Resize(Range("A" & Cells.Count).End(xlUp).Row, 1)
[/vba]
Thank you very much but give me error on
Run-time error '6':
Overflow
[vba]
Set rngA = ActiveSheet.Range("A1").Resize(Range("A" & Cells.Count).End(xlUp).Row, 1)
[/vba]
Posting Permissions
Reply With Quote