I have to copy and paste this code into several cells:
I was able to make dtmDate public, but I can't assign it to the formula above. I have to do that in each sub. I also tried a function. Is there another way to do it so I won't have copy and paste it into each sub? This is the function I tried:Code:dim dtmDate dtmDate = Format(Now(), "Short Time")
Code:Public dtmDate As Date Public Function CurrTime() As Date dtmDate = Format(Now(), "Short Time") End Function
Thank you.