Edit code vba

[sofas]

Hello, can I know where the error is in the code?

Sub Macro1()
Dim LastRow As Long
With Worksheets("sh")
  LastRow = .Cells(Rows.Count, "h").End(xlUp).Row
  Range("k:k,N:N,Q:Q,T:T,W:W,Z:Z,AC:AC,AF:AF,AI:AI" & LastRow).Select
  Selection.NumberFormat = "m/d/yyyy"
    Range("a1").Select
End With

    
End Sub

 

[offthelip]

try this:

Sub Macro1()
Dim LastRow As Long
Dim myrange As Range
With Worksheets("sh")
  LastRow = .Cells(Rows.Count, "h").End(xlUp).Row
  Set myrange = Union(.Range("k1:k" & LastRow), .Range("N1:N" & LastRow), .Range("Q1:Q" & LastRow))  ' add your other ragnes in like this
  myrange.NumberFormat = "m/d/yyyy"
    Range("a1").Select
End With

End Sub

 

[dmt32]

Hi,
try this update to your code & see if helps

Sub Macro1()
    Dim LastRow As Long
    With Worksheets("sh")
      LastRow = .Cells(.Rows.Count, "h").End(xlUp).Row
        .Range("K1:K" & LastRow & ",N1:N" & LastRow & ",Q1:Q" & LastRow & _
               ",T1:T" & LastRow & ",W1:W" & LastRow & ",Z1:Z" & LastRow & _
               ",AC1:AC" & LastRow & ",AF1:AF" & LastRow & ",AI1:AI" & LastRow).NumberFormat = "m/d/yyyy"
    End With
    
End Sub

Dave