Can anyone help me please

[sdc1234]

OK, try this, Paste this into a module, and run it;

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

How can I get this code to autorun as soon as I open the worksheet please help I know it is something I am just not sure what the code is

 

[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).