Why am I getting this error?

[Groves22]

This is occuring in a For Loop. The loop will look at cell W5 through AB5 one by one.

Here is what I got. I am omitting some code for space. I think I have included everything needed.

Public rYear As String, rDay As String, rMonth As String, rCount As Integer, rAgency As String, rAgentN As String

Sub Update_Report()

        Dim i As Integer, j As Integer, k As Integer, l As Integer

        For l = 23 To 28
            [b]rAgentN = FormatM.Sheets(1).Cells(5, l)[/b]

If I were to say

rAgentN = FormatM.Sheets(1).Range("rAgent")

In which rAgent is cell W5, it works. Why won't it work for .Cells (5, l), which is Cells(5,23), which is cell W5?

I get a type mismatch error.

 

[SkipVought]

Hi,

Maybe...

rAgentN = CStr(FormatM.Sheets(1).Cells(5, l).Value)

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[Groves22]

Hi Skip...

That stopped the VBA error box from popping up, but now the value for rAgentN is 'Error 2024', instead of the desired '011'

 

[PHV]

And this ?
rAgentN = FormatM.Sheets(1).Cells(5, l).Text

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Groves22]

Hey PHV/Skip...

Nevermind, I'm an idiot! I had it looking at row 5, when it should have been row 7.

My original code works with 7 implace of 5.

Thanks for trying to help!