Macro autorun

[sdc1234]

I am tryin to get this to run automatically instead of manually here is the code

Sub MoveDate()

Select Case Range("AI3").Value
Case Is = ""
Range("Z3:AA3").Select
Selection.Cut
Range("AI3").Select
ActiveSheet.Paste

Case Else

Range("AI3").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("AK3").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False

Range("Z3:AA3").Select
Selection.Cut
Range("AI3").Select
ActiveSheet.Paste
End Select
End Sub

any help would be appreciated

thx

 

[alan.m]

When do you want it to run?
If when the sheet opens, then change the name from
Sub MoveDate()
to
Sub Autpen()

 

[Joe4]

Duplicate: http://www.mrexcel.com/forum/showthread.php?t=538562

Please do NOT post the same question in multiple threads! All follow-ups, bumps, and clarifications should be posted in the same thread. Posts of a duplicate nature will be locked or deleted per forum rules (rule #9 here: http://www.mrexcel.com/forum/showthread.php?t=99490).