adding a new column and calculating a new date

[cdm1967]

I have created a macro that filters data for different users. I have
also created a submacro, which is the following:

Sub macro1()
For MY_ROWS = Range("L65536").End(xlUp).Row To 1 Step -1
If Range("L" & MY_ROWS).Value = "CANCEL" Or IsDate(Range("L" &
MY_ROWS)) Then
Rows(MY_ROWS).Hidden = True
End If
If Range("L" & MY_ROWS).Value = "N/A" Or IsDate(Range("L" &
MY_ROWS)) Then
Rows(MY_ROWS).Hidden = True
End If
Next MY_ROWS
End Sub

After running the 1st submacro, I now need to create another macro that
adds an empty column (before all of the other columns on the worksheet)
AND I need to calculate the date based on the last column (for this one
it would be column "L"). Right now the 1st column already has data and
that data would need to be shifted to the right. Please help. Thanks

 

[Douglas J. Steele]

That looks suspiciously like Excel.

This newsgroup is for questions about macros in Access, the database product
that's part of Office Professional. (FWIW, Access macros do not use VBA.)