Naming Formulas

[vba317]

I am trying to define my formulas so if I use a value for something else it makes easier to follow. But I can't get it it work. I was hoping to get some help.

'Today's Date Function
CurrentDate = Range("K" & LR - 3).Formula = "=" & "A" & LR - 4
Range("K" & LR - 3).Value = (CurrentDate)
Range("K" & LR - 3).Select
    With Selection
       .NumberFormat = "m/dd/yy"
   End With

What happens is in the appropriate Cell I get a 1/1/00 instead of the date that is in cell A & LR

 

[combo]

You assign TRUE/FALSE to CurrentDate:
[!]CurrentDate = Formula1 = Formula2[/!]
and next format is as date in A & LR.

combo

 

[Gavona]

You have 2 equals signs in the first row. CurrentDate will contain True or False (1 or 0) depending on whether
Range("K" & LR - 3).Formula
is equal to (the same as)
"=" & "A" & LR - 4

"K" & LR - 3
I think that this expression should return the cell address as a string (or a rangename as a cell). Concatenating a string ("K") with what is presumably a number (LR-3) might cause errors unless Excel is smart in interpreting your intent.
I assume that LR is an integer variable defined elsewhere in your code.




Gavin