Pass value of Object to String

SLogin2 is a string
sh7CellG is an Object (according to Error 424, Object required)

Im trying to pass the value of sh7CellG.Offset(0,1) to sLogin2

When I check the value of sh7CellG.Offset(0,1) via msgbox, its exactly what it should be.
So how do I pass the value of sh7CellG.Offset(0,1) to sLogin2?

    With Sheets("Misc data")
        'Loop thru Column F
        sh7LastRowG = .Cells(Rows.Count, "G").End(xlUp).Row
        Set sh7RangeG = .Range("G1:G" & sh7LastRowG)
    End With

    For Each sh7CellG In sh7RangeG
        If sh7CellG = sLogin Then
            Do While sLogin <> sLogin    ' ""
                MsgBox "You must enter your Intitals, initials must be approved! (Caps only!)"
                sLogin = InputBox("Enter Initials here (Caps only!)")
            Loop

            MsgBox sh7CellG.Offset(0, 1)  'for testing
            sLogin2 = sht7CellG.Offset(0,1)  <-----Offending line of code "error 424"
            Call Button_Controls.Buttons_Enabled
        End If
    Next sh7CellG

(Ref: http://www.excelforum.com/excel-prog...e-dynamic.html)

Cant count how many times I changed
"sLogin2 = sh7cellG.Offset(0, 1)"
to
"sLogin2 = sh7cellG.Offset(0, 1).Value"
and had it fail.
Until I set the msgbox to "sLogin2 = sh7cellG.Offset(0, 1).Value", now it works all the time?
Oh well, solved is solved.

Small error that might be causing your problem:

    With Sheets("Misc data")
        'Loop thru Column F
        sh7LastRowG = .Cells(Rows.Count, "G").End(xlUp).Row
        Set sh7RangeG = .Range("G1:G" & sh7LastRowG)
    End With

    For Each sh7CellG In sh7RangeG
        If sh7CellG = sLogin Then
            Do While sLogin <> sLogin    ' ""
                MsgBox "You must enter your Intitals, initials must be approved! (Caps only!)"
                sLogin = InputBox("Enter Initials here (Caps only!)")
            Loop

            MsgBox sh7CellG.Offset(0, 1)  'for testing
            sLogin2 = sh7CellG.Offset(0,1)  <-----Offending line of code "error 424" you had sht instead of sh
            Call Button_Controls.Buttons_Enabled
        End If
    Next sh7CellG

Thank you!