Find next empty cell in column

I need a macro to find the next empty cell in column A and enter the text "letter sent" with the current date entered in the corresponding cell in the column to the right.

In other word, If A6 is the first empty cell in Column A the macro should return "letter sent" in A6 and the current date in B6.

I can't seem to get any of my macros to do the job.

Help!

Here, try this:

(Format date as you like)

Please Login or Register  to view this content.

Try something like this...

Please Login or Register  to view this content.

AlphaFrog - your code works perfectly! Thanks. There are two things I need to do with this.

1. Add it to the end of a print macro changing "letter sent" to the name of the save name in the print macro

Here's the code:

Please Login or Register  to view this content.

2. (and this is a totally separate issue) Change the "letter sent" to the value in a specified cell, such as Q3, where Q3="Acknowledement Letter"

You're welcome.

I don't understand your two new requests.

I managed to figure out request # 1 - I added your code to my print macro. I have a workbook that generates up to 30 unique letters and I have a print macro for each letter. I managed to get your code to first document the letter within the workbook then move on to print the letter as a pdf with a unique name to the active directory. I was able to change a few references to make your code do exactly what I wanted....Success.

Part 2 is when I have a variable name for the PDF. When none of the 'standard' 30 letters is quite right the user creates his own and types the name of the letter in a cell....such as Q3. I need to insert whatever is typed in Q3 in your macro in place of "letter sent". The end result is a table with all the letters sent and a corresponding PDF loaded into the directory where the workbook is saved.

Originally Posted by Scott Taylor

Part 2 is when I have a variable name for the PDF. When none of the 'standard' 30 letters is quite right the user creates his own and types the name of the letter in a cell....such as Q3. I need to insert whatever is typed in Q3 in your macro in place of "letter sent". The end result is a table with all the letters sent and a corresponding PDF loaded into the directory where the workbook is saved.

Please Login or Register  to view this content.

Wow....you're a genius! Thanks!