not having to repeat code

[daveyc18]

so i got various macros in a workbook referring to the date

Dim Today As Date
Dim data


Set mywbk = ActiveWorkbook
Set procedures = mywbk.Sheets("Reports")


showdate = Day(procedures.Range("A29"))
showmonth = Month(procedures.Range("A29"))
showyear = Year(procedures.Range("A29"))


If Len(showdate) = 1 Then
    showdate = "0" & showdate
End If


If Len(showmonth) = 1 Then
    showmonth = "0" & showmonth
End If


showdate0 = Day(procedures.Range("A29"))
m5 = longm(showmonth)

is there anyway i can just make this apply to the entire workbook so i dont have to apply it to each module?

 

[BiocideJ]

I don't think there is a way to define a variable from a worksheet value completely outside of a separate subroutine, however, you CAN create a generic subroutine which can set/edit the variables and can be called as just a single line of code (in this instance InitializeDates)

'Global variables available to all subroutines
Public showDate As String
Public showMonth As String
Public showYear As String
'NOTE: since these variables are declared globally,
'   they shouldn't be declared locally in any other Subs
Sub InitializeDates()
Dim tmpDate As Date
tmpDate = ActiveWorkbook.Sheets("Reports").Range("A29").Value
    showDate = Format(tmpDate, "DD")
    showMonth = Format(tmpDate, "MM")
    showYear = Format(tmpDate, "YYYY")
End Sub
Sub SUB1()
    InitializeDates
    '....other code
    MsgBox showDate & "-" & showMonth & "-" & showYear
End Sub
Sub SUB2()
    InitializeDates
    '....other code
    MsgBox showDate & "-" & showMonth & "-" & showYear
End Sub

Note that the MsgBox lines are simply there to demonstrate that it works and can/should be removed.