Excel VBA Problem

[abbeville]

I have 35 macros named "Week 1" etc. to "Week 35". Is it possible t
build a macro that will run each macro according to a cell value? i.e
if cell value = 1 it would run "Week 1", if cell value = 23 it woul
run "Week 23". Can anyone help me?
abbevill

 

[Greg Wilson]

Sub SelectMacro()
Dim x As Integer
x = ActiveCell.Value
On Error Resume Next
Application.Run ("Week" & x)
On Error GoTo 0
End Sub


Regards,
Greg

 

[Filips Benoit]

This picks the value from cell B1

Sub Test()
Dim strMacroName
strMacroName = "Week" & CStr(ActiveSheet.Cells(1, 2).Value)
Application.Run (strMacroName)
End Sub

 

[abbeville]

Thank You for your help. I tried Greg Wilson's first & it did exactl
what I wanted.

abbevill