Remove Column if Blank

[Vishaal]

Hi and thanks,

pls check the following sheet, want to remove all the blank column

Excel 2010 32 bit

	B​	C​	D​	E​	F​	G​	H​	I​	J​	K​	L​	M​	N​	O​
1​	Name​	Attend 1​	Attend 2​	Attend 3​	Attend 4​	Attend 5​	Attend 6​	Attend 7​	Attend 8​	Attend 9​	Attend 10​	Attend 11​	Attend 12​	Attend 13​
2​	John​	​	​	​	​	P​	​	P​	​	​	​	P​	​	​
3​	​	​	​	​	​	P​	​	P​	​	​	​	P​	​	​
4​	​	​	​	​	​	P​	​	P​	​	​	​	P​	​	​
5​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
6​	Raghu​	P​	​	​	​	​	​	P​	​	​	​	​	​	​
7​	​	P​	​	​	​	​	​	P​	​	​	​	​	​	​
8​	​	P​	​	​	​	​	​	P​	​	​	​	​	​	​
9​	​	​	​	​	​	​	​	​	​	​	​	​	​	​
10​	Matty​	​	​	​	​	​	​	P​	​	​	P​	​	​	P​
11​	​	​	​	​	​	​	​	P​	​	​	P​	​	​	P​
12​	​	​	​	​	​	​	​	P​	​	​	P​	​	​	P​

Sheet: Sheet1

result sheet

Excel 2010 32 bit

	B​	C​	D​	E​	F​	G​	H​
1​	Name​	Attend 1​	Attend 5​	Attend 7​	Attend 10​	Attend 11​	Attend 13​
2​	John​	​	P​	P​	​	P​	​
3​	​	​	P​	P​	​	P​	​
4​	​	​	P​	P​	​	P​	​
5​	​	​	​	​	​	​	​
6​	Raghu​	P​	​	P​	​	​	​
7​	​	P​	​	P​	​	​	​
8​	​	P​	​	P​	​	​	​
9​	​	​	​	​	​	​	​
10​	Matty​	​	​	P​	P​	​	P​
11​	​	​	​	P​	P​	​	P​
12​	​	​	​	P​	P​	​	P​

Sheet: Sheet1

help pls

 

[Vishaal]

we have use this code in new module (VBA)

 

[Vishaal]

Thanks
Akuini


its working for me.

thanks for the help

 

[Vishaal]

Thanks
Michael M

code is working in my case

thanks for the help

 

[Akuini]

Thanks
Akuini


its working for me.

thanks for the help

You're welcome, glad to help, & thanks for the feedback.