LinkBack URL
About LinkBacks
heinzpol 
Change
Dim WkPicN As String WkPicN = Range("I13")
by
Dim WkPicN As String WkPicN = Range("I13") If (Len(WkPicN) = 0) Then exitSub
Change
Dim WkPicN As String WkPicN = Range("I13")
by
Dim WkPicN As String WkPicN = Range("I13") If (Len(WkPicN) = 0) Then exitSub
- Battle without fear gives no glory - Just try
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks