VBA Syntax help

[AussieVic]

Hi, how can i add a sheet name to this rather than using activesheet?

With Intersect(Activesheet.UsedRange, Rows("6:" & Rows.Count))
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
End With

 

[somnath_it2006]

With Intersect(Sheets("Sheet1").UsedRange, Sheets("Sheet1").Rows("6:" & Rows.Count))

OR

Dim ws As Worksheet
    
Set ws = Sheets("Sheet1")
    
With Intersect(ws.UsedRange, ws.Rows("6:" & Rows.Count))

 

[AussieVic]

Brilliant!, Thanks

With Intersect(Sheets("Sheet1").UsedRange, Sheets("Sheet1").Rows("6:" & Rows.Count))

OR

Dim ws As Worksheet
 
Set ws = Sheets("Sheet1")
 
With Intersect(ws.UsedRange, ws.Rows("6:" & Rows.Count))

 

[Peter_SSs]

or slightly inbetween both of those

With Sheets("Sheet1")
    With Intersect(.UsedRange, .Rows("6:" & .Rows.Count))