naming a range but i dont want it to gotoend of formula

[Patriot2879]

Hi Hope you can help and that this makes sense

Below is a snippet of code i am using for an email, what this code does is copy information in my work issue sheet and copies over into the email. But in my work issue sheet in columns N to V i have formulas that go all the way down for example to column 32, but this is not always filled with data found, for example it might only find data down to column 5, but the formula will still be below. I only want the below code to only copy the data found and not the blank cells with the formula as well. Is this possible and i hope you can help

LastRow = Sheets("Work Issue").Columns("N:V").Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Set rngDataToEmail = Sheets("Work Issue").Range("N1:V" & LastRow)

 

[steve the fish]

So you have formulas that produce blank you mean? You should get used to using all the parameters that could influence the result of the Find. You need this added:

LookIn:=xlValues

 

[Patriot2879]

hi thank you for the reply yes when the cell doesnt find anything the formula is still there but it gets added to the email as a blank. where would i put the code in please?

 

[steve the fish]

Your Find:

Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows)

Place it inside with the other parameters so it becomes:

Find(What:="*",LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows)

 

[Patriot2879]

That has worked great many thanks

 

[Patriot2879]

thank you , is there any well to put in a border around the cells as well, for columns N to Z?