VBA column print hyperlinks

[Zigman36]

Hi All,

Need to the world of VBA so apologies before I start!
I have a column for each week of the year, in each column I have a few hyperlinks that are required to be printed off in as each week begins.

So far I have created a Command button and assigned the VBA below (for the first column representing Week 1 'col L')
This is manually selected by the user at week start.
Question is,
Is the best way forward to create and 50+ more command buttons and add 50+ modules with code to assign against or is there any better methods? Maybe using a calendar etc?
Thanks in advance!

Sub ButtonJan1_Click()
'
' ButtonJan1_Click Macro
' Jan 1 Print all hyperlinks
'

'
Range("L8:L108").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Annual Overview").Select
ActiveSheet.Shapes.Range(Array("Button 23")).Select
Application.GoTo Reference:="ButtonJan1_Click"
ActiveWorkbook.Save
ActiveWorkbook.Save
End Sub

 

[Micron]

How would I code "If cell L8 has a value, then print hyperlink in cell B8"?

If Range("L8")<>"" Then 
   Range("L8").Offset(0,-10).Hyperlinks(1).Follow
   'then your print code next
End If