Hello Arjanvb,
oWB.Sheets(1).Columns(10).EntireColumn.Hidden = True
works (just one l in Columns)
Set oResizeRange = oSheet.Range(oSheet.Cells(1, RowStart), oSheet.Cells(3, RowStart + NumRows))
works (you missed to specify the object .Cells refers to)
In general I would suggest to develop...