VBA get offset cell from a named Variable Range

[decadence]

Hi, I am trying to step through a varied range to get the first letter of that cell and put that letter in another varied range cell on the same row then go to the next cell in the 1st range.
I know the 2nd range is the issue but not sure how to fix it, Can some one help please. Code Below...

Option Explicit
Option Compare Text
Dim Rng1 As Range, Rng2 As Range, xVal1 As Range, xVal2 As Range, s As String, sStr As String, Fnd1 As Range, Fnd2 As Range, Rng As Range
Sub MacroTest()
'
    Set Rng1 = RngRef
    Set Rng2 = RngFoot
    If Not Rng1 Is Nothing Then
    If Not Rng2 Is Nothing Then
    For Each xVal1 In Rng
            xStr = GetRef(xVal1.Value)
                If xStr = "C" Or xStr = "R" Then
                    For Each xVal2 In Rng2
                        If xStr = "C" Then
                            If UCase(Left(Rng1(xVal2.Value), 1)) <> "0" Then
                                xVal2.Value = xStr & "0" & xVal2.Value
                            Else
                                xVal2.Value = xStr & xVal2.Value
                            End If
                        ElseIf xStr = "R" Then
                            If UCase(Left(xVal2.Value, 1)) <> "0" Then
                                xVal2.Value = xStr & "0" & xVal2.Value
                            Else
                                xVal2.Value = xStr & xVal2.Value
                            End If
                        End If
                    Next xVal2
                Else
            End If
        Next xVal1
        Else
        MsgBox "Ref Column Not Found"
        End If
        Else
        MsgBox "Foot Column not Found"
        End If
End Sub

Function GetRef(xStr As String) As String
    Dim i As Long, sStr As String, s As String
    sStr = vbNullString
    For i = 1 To Len(xStr)
        s = Mid(xStr, i, 1)
        If Asc(LCase(s)) >= 97 And Asc(LCase(s)) <= 122 Then
            sStr = sStr + s
        End If
    Next
    GetRef = sStr
End Function

Function RngRef() As Range
    Set Fnd1 = ActiveSheet.Columns.Find(What:="Ref", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        If Not Fnd1 Is Nothing Then
            Set RngRef = Range(Fnd1.Offset(1), Cells(Rows.Count, Fnd1.Column).End(xlUp))
        End If
End Function

Function RngFoot() As Range
    Set Fnd2 = ActiveSheet.Columns.Find(What:="Foot", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        If Not Fnd2 Is Nothing Then
            Set RngFoot = Range(Fnd2.Offset(1), Cells(Rows.Count, Fnd2.Column).End(xlUp))
        End If
End Function

Example:

From

Ref					Foot
C123					986
K1					11
R077					77

<tbody>
</tbody>

To

Ref					Foot
C123					C987
K1					K11
R077					R077

<tbody>
</tbody>

 

[Fluff]

What error messages do you get?

 

[decadence]

I'm not getting any error messages, the problem is the second range steps through the entire column within each cell of the first range

 

[Fluff]

I'm not getting any error messages

There is a variable which hasn't been declared in the code you've shown, which would give a compile error, unless it's been declared elsewhere.
If I declare that variable & run your code I get a 424 error "Object Required"

 

[decadence]

That's weird as I am not getting any errors, I have checked it over thoroughly.

 

[Fluff]

xStr has not been declared, so if you are using Option Explicit, it should give you a compile error.
Also on this line

For Each xVal1 In Rng

Rng is nothing as you have not assigned anything to it, which is where I get the 424 error