Insert blank column after finding cell value

[B-radK]

Hello team,

I would like to know a vba code to find cell values, then insert a blank columns immediately after those cells.

For example, find a cell called "Bank" then insert a blank column afterwards. At the same time, find cells with "Transaction" and "Account" and insert blank columns after those too.

Any help would be greatly appreciated.

Thanks,
Brad.

 

[B-radK]

G'day Peter,

I was playing around with the date format. If I select the following date format, it does not work:

If I select the following date format, it does work:

Thanks again for your help.

It is very much appreciated.

Thanks,
Brad.

 

[Peter_SSs]

If I select the following date format, it does not work:

Try this instead

Set rFound = Rows(4).Find(What:=DateValue(Hdr), LookIn:=xlFormulas, LookAt:=xlWhole)

 

[B-radK]

Hello Peter,

Yes, that worked.

Problem solved. We can wrap that one up!

Thanks,
Brad.

 

[Peter_SSs]

Cheers.