Corey:
FYI,,
The "For Each" keywords indicate a looping of all elements of a
collection,
which in this case are Cells C8 to R30 (23 rows 16 cols) all 368 of
them.

"Corey" wrote in message
:

Thanks Nick,

Are you saying that i need to still enter MULTIPLE entries or this code:
__________________________________________________ ___
sub dates()
Dim Cell As Range
Dim PSP As Worksheet
Dim IFP As Worksheet

Set PSP = Worksheets("Print & Shading Page")
Set IFP = Worksheets("Induction Frequency Page")

For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30")
With Cell
If .Value < "" Then
PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value
End If
End With
Next
End Sub
__________________________________________________ ___ you posted is ALL i
need?

Corey....

"NickHK" wrote in message
...

Corey,
Something like this ?

Dim Cell As Range
Dim PSP As Worksheet
Dim IFP As Worksheet

Set PSP = Worksheets("Print & Shading Page")
Set IFP = Worksheets("Induction Frequency Page")

For Each Cell In Worksheets("Inductions Update Page").Range("C8:R30")
With Cell
If .Value < "" Then
PSP.Range(.Address).Value = IFP.Range(.Address).Value + .Value
End If
End With
Next

There's no point in this line:
Worksheets("Induction Update Page").Range("C9") = ""
because you are already checking that it is < "".

NickHK

"Corey" wrote in message
...
Sub Dates()
If Worksheets("Inductions Update Page").Range("c8") < "" Then
Worksheets("Print & Shading Page").Range("C8") = _
Worksheets("Induction Frequency Page").Range("C8") + _
Worksheets("Inductions Update Page").Range("C8")
Else
Worksheets("Induction Update Page").Range("C9") = ""
End If
If Worksheets("Inductions Update Page").Range("c9") < "" Then
Worksheets("Print & Shading Page").Range("C9") = _
Worksheets("Induction Frequency Page").Range("C9") + _
Worksheets("Inductions Update Page").Range("C9")
Else
Worksheets("Induction Update Page").Range("C9") = ""
End If

End Sub

I need to do the above coding to all cells the the range of (C8:R30)

Is there an easier way other than how i have began, that being each step
range changed to the next cell?


Corey....