Here's my full code below. Basically what I am doing is having the macro find a specific font etc, then move the data in that cell down and to the left one cell (already done). The thing is, I need to repeat that task on average bout 150 times, so I am wanting to build the code so it will select a cell below the one that I just moved to avoid moving it again. Hope that's a little clearer!!
Ohh, I couldn't get the first string of code to work.
Sub MoveSupervisor()
'
' MoveSupervisor Macro
' Macro recorded 1/26/2005 by TCollin6
'
'
Range("C4").Select
Application.FindFormat.Clear
Application.FindFormat.NumberFormat = "General"
With Application.FindFormat
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
With Application.FindFormat.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 9.75
.Strikethrough = False
.Superscript = False
.Subscript = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 10
End With
Application.FindFormat.Borders(xlLeft).LineStyle = xlNone
Application.FindFormat.Borders(xlRight).LineStyle = xlNone
Application.FindFormat.Borders(xlTop).LineStyle = xlNone
Application.FindFormat.Borders(xlBottom).LineStyle = xlNone
Application.FindFormat.Borders(xlDiagonalDown).LineStyle = xlNone
Application.FindFormat.Borders(xlDiagonalUp).LineStyle = xlNone
Application.FindFormat.Interior.ColorIndex = xlNone
Application.FindFormat.Locked = True
Application.FindFormat.FormulaHidden = False
Selection.Cut Destination:=Selection.Offset(1, -1)
End Sub