I'm trying to loop thru a range of cells and subtract 48 from each cell total in range set by the counter.
I keep hitting a App defined error..can some one see what is wrong with my code...OR is there another way to subtract from a set range?
Public Function LastRow()
Dim lRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
lRow = Cells.Find(What:="*", After:=[A1], _
LastRow = lRow
Public Sub do_the_volts()
Dim I As Integer, Xrange As Range, sheetname As String, n As Integer
sheetname = ActiveSheet.Name
I = LastRow
Set Xrange = .Range("F2")
Do Until I = 0
n = n - 1
.Cells(n, 0) = .Value - 48#