Sorry this doesn't work It only selects the last cell in the range whereas I
need to select the whole range "Block"

"VoTiger" wrote:


SrcRange=Mybook.Workshhets(ShtName(N)).Range(Range ("A2"),Range("A2").SpecialCells(xlLastCell))
Hi,
have you tried to make this ?

SrcRange =
MyBook.WorkSheets(ShtName(N)).Range("A2).Specialce lls(xlastcell)

Hope this will help you