Find Column heading and then Delete entire column

Hi,

I am trying to find a column heading within a worksheet and then delete the entirecolumn. The following line of code does this fine but the column I am trying to 'find' will not always be present. When the column is not present this line of code will debug and I would like to write something better than an 'On error' statement to proceed with the code. I've been trying to put it in some kind of IF statement but without success:

.Rows(1).Find("Myvalue").EntireColumn.Delete

I'm sure this is pretty simple but I'm having one of those days. Any help, as always, would be much appreciated.

Thanks,

Adrian

dim FoundCell as range
with activesheet.rows(1)
set foundcell = .cells.find(what:="myValue",.....)
end with

if foundcell is nothing then
'not found
else
foundcell.entirecolumn.delete
end if



Kobayashi wrote:
>
> Hi,
>
> I am trying to find a column heading within a worksheet and then delete
> the entirecolumn. The following line of code does this fine but the
> column I am trying to 'find' will not always be present. When the
> column is not present this line of code will debug and I would like to
> write something better than an 'On error' statement to proceed with the
> code. I've been trying to put it in some kind of IF statement but
> without success:
>
> Rows(1).Find("Myvalue").EntireColumn.Delete
>
> I'm sure this is pretty simple but I'm having one of those days. Any
> help, as always, would be much appreciated.
>
> Thanks,
>
> Adrian
>
> --
> Kobayashi
> ------------------------------------------------------------------------
> Kobayashi's Profile: http://www.excelforum.com/member.php...nfo&userid=871
> View this thread: http://www.excelforum.com/showthread...hreadid=476777

--

Dave Peterson

Dave,

Many thanks indeed! Works a treat, although I didn't want the code to execute anything should the value not be found so I took the liberty of amending your code to:

If FoundCell Is Nothing Then
'not found
Else
FoundCell.EntireColumn.Delete
End If

to

If Not FoundCell Is Nothing Then
FoundCell.EntireColumn.Delete
End If

Many thanks again!

Best Regards,

Adrian

Forgot to add rating.

I bet if you try both versions, you won't notice a difference.



Kobayashi wrote:
>
> Dave,
>
> Many thanks indeed! Works a treat, although I didn't want the code to
> execute anything should the value not be found so I took the liberty of
> amending your code to:
>
> If FoundCell Is Nothing Then
> 'not found
> Else
> FoundCell.EntireColumn.Delete
> End If
>
> to
>
> If Not FoundCell Is Nothing Then
> FoundCell.EntireColumn.Delete
> End If
>
> Many thanks again!
>
> Best Regards,
>
> Adrian
>
> --
> Kobayashi
> ------------------------------------------------------------------------
> Kobayashi's Profile: http://www.excelforum.com/member.php...nfo&userid=871
> View this thread: http://www.excelforum.com/showthread...hreadid=476777

--

Dave Peterson