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)