Somethings wrong here cant figure out what can anyone help
Dim AA As Long
Dim AB As Long
AA = Worksheets("Dipole Scratchpad 1").Cells(1, "L").Value
AB = Worksheets("Dipole Scratchpad 1").Cells(1, "M").Value
MsgBox (AA)
MsgBox (AB)
Range(AA.AB - 1).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess
Dim AA As Long
Dim AB As Long
AA = Worksheets("Dipole Scratchpad 1").Cells(1, "L").Value
AB = Worksheets("Dipole Scratchpad 1").Cells(1, "M").Value
MsgBox (AA)
MsgBox (AB)
Range(AA.AB - 1).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess