If/Then Code for deleting rows

[Platinum3x]

I'm trying to write some basic code to check if cell A6 has any value (could be a string too). If A6 has a value, then I want to delete Rows 1:5. If A6 does not have a value and is blank, then I don't want the macro to do anything. I have posted my sample code below. I feel like this should be really easy, but the macro deletes rows 1:5 regardless of whether A6 has a value or not. Any help with a fix is much appreciated!

Please Login or Register  to view this content.

[AB33]

Range("A6"). may not be blank.
Do you have a formula with null string in A6?

[judgeh59]

Or are there spaces in A6?

[judgeh59]

there is a ISEMPTY and ISNULL in VBA that lets you check....

[AB33]

TRY,

Please Login or Register  to view this content.

[Mad-Mizer]

Or maybe:

Please Login or Register  to view this content.

[Lukael]

I'm not quite xpert, but If I understand you correct, you just need to delete rows If A6 has a value. Then everything you have to do Is change "A6" to both ranges :

Please Login or Register  to view this content.

but It deletes A6 too, you want that ?

[Platinum3x]

AB33's code worked! To confirm, the cell did infact have a SPACE in it so it was capturing this value and not categorizing it as truly blank. I'm assuming the TRIM and NullString components of the fixed code are taking this into account. Much thanks for your help!

Please Login or Register  to view this content.