Can I loop this?
You could loop it something like this
For A=1 to 27
If A<10 Then
tgtname="020" & Cstr(A) & "10"
Else
tgtname="02" & Cstr(A) & "10"
End If
Sheets("February").Range("B5") = Sheets("February").Range("B5") +
Sheets(tgtname).Range("B5")
Next A
--
If this helps, please remember to click yes.
"Qaspec" wrote:
....or is there a better way to write this?
Private Sub CB1_Click()
With ThisWorkbook.Worksheets("February")
.Range("B5").Value = Worksheets("020110").Range("B5").Value +
Worksheets("020210").Range("B5").Value
End With
End Sub
The Worksheets go from "020110" to "022710"
|